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Compattazione di figure 

su dischetto 


La grafica dell'Apple ha una risoluzione sufficientemente elevata per indurre a comporre 
grafici, istogrammi , prospettive, animazioni e figure di ogni genere. Il tempo necessario 
all esecuzione di un programma grafico è generalmente tanto più lungo quanto maggiore è la 
densità e la complessità delle informazioni che la figura deve contenere; ad esempio il grafico 
tridimensionale di una funzione molto complessa può richiedere ore di elaborazione. Se poi 
esiste la possibilità che questo elaborato risulti utile anche in futuro, ci si pone il problema di 
memorizzarlo per non dover eseguire nuovamente Iestenuante e ormai inutile programma. 



di F. Zgavc 

I l problema di per se è facilmente risolubile, 
i comandi: 

BSAVE FIGURAHGR, A$2000,L$2000 
BSAVE FIGURAHGR2, A$4000,L$2000 

permettono rispettivamente di salvare sul disco le 
figure contenute nella prima e nella seconda 
pagina grafica con i nomi "figurahgr" e "figu- 
rahgr2". Tutto va bene finché non ci si pongono 
problemi di memoria, infatti se eseguiamo un 
CATALOG del disco su cui abbiamo salvato la 
figura ci accorgiamo che questa occupa ben 34 
settori, un severo monito ad essere moderati con 
la nostra creatività! 

Quando il numero delle figure da salvare è 
particolarmente elevato risulta quasi obbligato- 
rio tentare di ridurre lo spazio che occupano sul 
disco. Le soluzioni migliori in genere presuppon¬ 
gono di avere a disposizione i dati finali delle 
varie elaborazioni che hanno portato alla figura. 
Dovendo memorizzare un grafico risulterà conve¬ 
niente salvare i dati relativi ai singoli punti della 
curva, mentre in un istogramma si potranno me¬ 
morizzare i valori assunti dalle ordinate nei cam¬ 
pionamenti; naturalmente ciò comporta una no¬ 
tevole perdita di tempo per la stesura dei pro¬ 
grammi sia di scrittura che di lettura, senza consi¬ 
derare poi che ogni caso deve essere trattato 
separatamente. Questo articolo propone allora 
come soluzione due subroutine che, pur con risul¬ 
tati di compattazione assai più modesti, non si 
vincolano in alcun modo al programma che ha 
costruito la figura. 


Analisi dal problema 

I comandi visti prima salvano sul disco una 
zona di memoria di lunghezza $2000 byte in esa- 
decimale, ossia 8192 byte nella numerazione de¬ 
cimale. Se ricordiamo che una pagina grafica è 
composta da 53760 = 192x280 punti e si associa 
un bit ad ogni punto, otteniamo 6720 = 53760/8 
byte con un disavanzo quindi di 1472 = 
8192-6720 byte. 


A questo punto qualcuno potrebbe obiettare 
che associare un bit ad ogni punto non è corretto 
visto che l'Apple mette a disposizione ben più di 
due colori per la grafica. Il nostro atteggiamento 
deriva essenzialmente dal metodo con cui sono 
effettivamente memorizzati i singoli punti ed è 
inoltre giustificato dalle pesanti limitazioni impo¬ 
ste nell'uso dei colori. Nella trattazione supporre¬ 
mo allora che i colori disponibili siano solo il bian¬ 
co ed il nero; detto questo passiamo senz'altro a 
localizzare i byte intrusi per poterli poi eliminare. 


Le pagine grafiche in alta risoluzione 

Come risulta intuibile dai parametri indicati nel 
comando BSAVE la pagina HGR è posizionata 
nella memoria dal byte 8192 al byte 16383 e la 
pagina HGR2 dal byte 16384 al byte 24575. Le 
due pagine dunque occupano il medesimo 
numero di byte, infatti, contrariamente a quanto 
potrebbe sembrare da un'analisi superficiale, le 
quattro righe di testo che normalmente sono 
presentate nella pagina HGR non sostituiscono 
ma semplicemente nascondono la corrispon¬ 
dente porzione di grafico. Per visualizzare l'intera 
pagina sarà sufficiente il comando POKE- 
16302,0, mentre con POKE-16 301,0 si ritornerà alla 
situazione iniziale. Chi vuol saperne di più può 
consultare il "Manuale di riferimento del BASIC 
Applesoft'' alle pagine 87-90 e 131-134 o il "ma¬ 
nuale Appiedi riferimento''alle pagine 12,13,19, 
130. Essendo le due pagine grafiche intrinseca¬ 
mente uguali a meno di una traslazione di 8192 
byte nella memoria, prenderemo in esame la 
HGR2 che l'Applesoft offre come completamen¬ 
te grafica. 

Per decifrare l'algoritmo che lega i punti della 
pagina, disposti in una struttura bidimensionale, 
ai byte della memoria, organizzati in modo unidi¬ 
mensionale, sfrutteremo il risultato grafico di alcu¬ 
ni micro-programmi. Cerchiamo intanto di stabi¬ 
lire la corrispondenza tra il contenuto di un byte e 
la sua rappresentazione grafica; a tal scopo ese¬ 
guiamo il seguente comando: 

HGR2:FOR 1=0 TO 255:POKE 

16384,l:FOR J=0 TO 

200: N EXT: N EXT 
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In alto a sinistra del monitor appaiono tutte le 
configurazioni corrispondenti ai valori da 0 a 255, 
ci sono sette punti, ciascuno associato ad un 
determinato bit del byte, più esattamente al bit 
meno significativo corrisponde il punto più a sini¬ 
stra e gli altri seguono in ordine. Poiché l'ottavo bit 
non corrisponde ad alcun punto essendo riserva¬ 
to alla gestione del colore, si potrebbe pensare 
che nelle nostre ipotesi di considerare solo il bian¬ 
co e il nero i valori dal 128 al 255 siano un'inutile 
copia dei precedenti. In realtà una differenza 
esiste e possiamo rendercene conto confrontan¬ 
do due byte con i valori sfasati di 128 unità: 


HGR2:FOR 1=0 TO 127:POKE 
16384,l:POKE 17408,1 
-f 128:FOR J=0 TO 200: 

N EXT: N EXT 


Risulta molto chiaro che il byte col valore mag¬ 
giore è leggermente traslato verso destra. Questo 
effetto un po' particolare , che in un certo senso 
raddoppia la definizione orizzontale, viene spes¬ 
so usato per ottenere una maggiore precisione 
delle lettere disegnate in pagina grafica; per tut¬ 
te le altre utilizzazioni si presenta di uso molto 
complesso rispetto alle possibilità offerte. Allo sco¬ 
po di ricuperare lo spazio corrispondente suppor¬ 
remo l'ottavo bit ininfluente nel grafico; anzi, per 
essere più precisi, daremo per scontato che esso 
sia nullo eliminando così eventuali effetti collate¬ 
rali nella ricostruzione della figura. 

Passiamo ora ad esaminare la relazione tra la 
posizione del byte in memoria e quella corrispon¬ 
dente nella pagina grafica; come prima sfrutte¬ 
remo un piccolo programma (la scelta del valore 
126 corrispondente ad un puntino nero e sei bian¬ 
chi permette di distinguere i singoli byte): 

HGR2:FOR 1=16384 TO 
24575:POKE l,126:FOR J=0 
TO 50: N EXT: N EXT 


I primi 40 byte compaiono uno di seguito all'al¬ 
tro nella prima riga in alto (che indichiamo con il 
numero 0 seguendo la numerazione propria dei 
comandi Applesoft) mentre il quarantunesimo si 


posiziona all'inizio della riga 64 seguito da altri 39 
byte, l'ottantunesimo infine corrisponde all'inizio 
della riga 128 seguito ovviamente da altri 39. Il 
fatto più interessante è che i byte dal 120 al 127 
non compaiono da alcuna parte e tra l'altro non 
sono adibiti ad alcuna funzione particolare ri¬ 
guardante la grafica, dunque si prestano benissi¬ 
mo ad essere utilizzati in altro modo. 
Continuando con i byte successivi la situazione si 
ripete fino a riempire completamente la pagina; 
l'analisi dell'algoritmo di corrispondenza byte-bit 
- riga, colonna e viceversa non interessa la nostra 
trattazione per cui rimandiamo ad altri articoli o 
ancor meglio all'intuito del lettore. 

Possiamo riassumere quanto detto con le se¬ 
guenti considerazioni: nella zona di memoria cor¬ 
rispondente ad una pagina grafica in alta risolu¬ 
zione, supponendo valide le ipotesi sopra intro¬ 
dotte, risultano inutilizzati 8 byte ogni 128 per un 
totale di 512 più un bit per ogni byte che appare 
sul video ossia 7680=192 x 40 bit corrispondenti a 
960 byte. Abbiamo cioè localizzato quei 1472 
byte di disavanzo sopra menzionati. 

Compattazione dolio informazioni 

L'algoritmo che illustriamo, partendo da una 
qualsiasi figura nella seconda pagina grafica, 
trasla le informazioni degli ultimi byte negli spazi 
che abbiamo reso disponibili. Come risultato fi¬ 
nale si ottiene una sequenza di 6720 byte che si 
può salvare su disco tramite il comando: 

BSAVE FIGURAHGR2,A$4000,L6720 


Il risparmio di memoria si concretizza così sul 
dischetto con la disponibilità di 6 settori dei 34 
altrimenti utilizzati. 

Poiché un programma in Applesoft che com¬ 
patti una figura lavora imperterrito perdei minuti 
scoraggiando il più volonteroso utilizzatore, ricor¬ 
reremo al solito Assembler tramite il quale i tempi 
di esecuzione si riducono a meno di un secondo. 
Facciamo osservare che i byte da spostare non 
sono necessariamente quelli da noi scelti, così 
come può essere modificato l'ordine con cui ven¬ 
gono disposti, ciò che conta invece è che il pro¬ 
gramma sia semplice, compatto e veloce. 
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Figura 1 * Dettagli sul - 
lAssembler del 6502. 


62 

Inseriamo nell’accumulatore il byte da 
spostare, 

63 

con una traslazione verso destra mettia¬ 
mo il suo bit meno significativo nelcarry, 
in questo modo ora il secondo bit è diven¬ 
tato il meno significativo il che ci permet¬ 
te di effettuare un ciclo. 

64,65 

Salviamo il carry nello stack e l’accumu¬ 
latore nel registro X(il trasferimento nel¬ 
lo stack è più lento), 

66 

possiamo ora caricare il byte in cui vo¬ 
gliamo scrivere; 

67 

poiché per inserire il valore del carry 
nell’accumulatore bisogna eseguire un’o¬ 
perazione di rotazione, si dovrà preventi¬ 
vamente traslarlo in verso opposto. Que¬ 
sta operazione modifica ovviamente il 
carry per cui risulta giustificato l’averlo 
salvato in precedenza nello stack. 

68,69 

Recuperato il carry inseriamo Usuo valo¬ 
re nell’accumulatore 

70 

riscriviamo il byte modificato 

71 

e portiamo nell’accumulatore il valore 
del registro X. 

72-74 

Possiamo senz’altro ripetere il ciclo fin¬ 
ché tutti e 7 i bit grafici non sono stati 
salvati. 


REGOLE OPERATIVE 

Data una figura memorizzata sul dischetto nel 
modo classico ad esempio con il nome FIGU- 
RAHGR2, per ottenere la versione compattata FI- 
GURAHGR2.COMP si può eseguire questa se¬ 
quenza di istruzioni: 


BLOAD COMPATTA.OBJO 
BLOAD F1GURAHGR2, A% 4000 
CALL 768 

BSA VE FIGURAHGR2. COMP, A %4000,L6720 


Per richiamarla sullo schermo sono sufficienti i 
comandi: 


BLOAD ESPANDI.OBJO 

HGR2.PRINT CHR$ (4) 

“BLOAD F1GURAFIGR2. COMP” 
:CALL 768 


Lo spazio eh© dobbiamo utilizzare è diviso in 
due distribuzioni chiaramente diverse, quindi an¬ 
che il programma di compattazione risulterà scis¬ 
so in due parti. Utilizzeremo dapprima i byte che 
non compaiono sul video, infatti questi non pon¬ 
gono alcuna limitazione al tipo di grafico e con¬ 
feriscono a questa prima parte la massima gene¬ 
ralità d'uso. 

Come abbiamo già accennato il nostro algorit¬ 
mo sposta gli ultimi 512 byte della figura (riferen¬ 
doci chiaramente all'ordine interno alla memo¬ 
ria); poiché questi corrispondono a 4 gruppi di 
128 è evidente che ce ne sono 32 che non con¬ 
tengono informazioni per cui in realtà i byte da 
spostare sono soltanto 480 o più precisamente 4 
gruppi di 120. Lo spazio in cui vogliamo sistemarli 
è invece costituito da 60 gruppi di 8 byte distan¬ 
ziati tra loro di 128 byte. 

La parte che stiamo discutendo è quella intito¬ 
lata "RECUPERO BYTE 120-127" del programma 
"COMPATTA PAGINA GRAFICA"; (listato 1) dal 
punto di vista delle mere istruzioni essa consiste 
essenzialmente di due cicli, quello esterno che 
incrementa di 128 unità il puntatore SCRIVI e di 8 il 
puntatore LEGGI e quello interno che trasla otto 
byte. L'unica piccola difficoltà riguarda l'incre¬ 
mento del puntatore LEGGI che deve evitare i 
byte dal 120 al 127 di ogni serie di 128. Il commen¬ 
to alle righe 12, 16 e 34 si riferisce ai valori da 
sostituire qualora si voglia compattare la prima 
pagina grafica anziché la seconda. 

Dopo l'esecuzione di questa prima compatta¬ 
zione disponiamo di 7680 byte, la seconda parte, 
intitolata "RECUPERO BIT 7", trasla il contenuto 
degli ultimi 960 nel bit più significativo dei byte 
precedenti. Poiché nel ciclo principale di questa 
seconda parte le istruzioni si differenziano al¬ 
quanto dalle procedure tipiche dell'Applesoft in- 


La rimanente parte del programma non pone 
difficoltà alcuna di interpretazione, ci limiteremo 
a ricordare che nelle righe 54,58 e 87 sono indica¬ 
ti i valori da sostituire se si vuole lavorare nella 
prima pagina grafica. 

Espansione delle Informazioni 

La figura compattata di cui ora disponiamo può 
essere riletta con il solito cornando: 

BLOAD FIGURAHGR2 

Naturalmente é necessario espandere le infor¬ 
mazioni contenute ripercorrendo all'indietro la 
compattazione precedentemente eseguita: 
"ESPANDI PAGINA GRAFICA" (listato 2) assolve 
appunto a questo compito. Vista la costruzione 
sostanzialmente simile al programma preceden¬ 
te, ci limitiamo a far notare che i bit più significati¬ 
vi di ogni byte vengono azzerati in conformità a 
quanto stabilito nell'Introduzione. 

Prima di concludere commentiamo somma¬ 
riamente il funzionamento dei programmi e i risul¬ 
tati ottenuti. Poiché non sono stati utilizzati dei 
salti incondizionati i programmi sono perfetta¬ 
mente rilocabili, ossia possono essere caricati 
ovunque nella memoria. La lunghezza molto 
contenuta dei listati, per quanto a discapito della 
chiarezza si potrebbe rosicchiare ancora qual¬ 
che byte, permette di caricare le subroutine alla 
locazione $300 ossia 768 in decimale; volendo 
disporre di entrambe le subroutine contempora¬ 
neamente si potrà caricarne una o entrambe 
alla locazione $6000 (24576 in decimale). Natu¬ 
ralmente se nel programma Applesoft è presente 
un'istruzione del tipo: 


H 

seriamo per chi ha già un'infarinatura sull'Assem- 
bler del 6502 una spiegazione con maggior det¬ 

LOMEM:24576 

M 

taglio di informazioni. (Figura 1) 

t 
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andrà modificata in modo da tener conto dello 
spazio occupato dalle subroutine inserite. 

Al solito, per chi non dispone di un assemblato- 
re, vengono riportate anche le sequenze di codi¬ 
ci da inserire direttamente tramite il monitor del¬ 
l'Apple per il controllo potrà risultare utile confron¬ 
tare il programma disassemblato con i listati del¬ 
l'articolo. Un'ultima nota riguarda il richiamo del¬ 
le subroutine che si effettua tramite un CALL al 
primo byte delle stesse. 


Lo spazio risparmiato con questa compattazio¬ 
ne all'incirca al 18% del totale, il che è abbastan¬ 
za se si considera che i tempi necessari per salva¬ 
re o rileggere una figura sono identici se non 
inferiori a quelli del metodo classico. Ci sono na¬ 
turalmente altre vie per risparmiare spazio, ad 
esempio quando si usa la prima pagina con le 
righe di testo la parte nascosta è ovviamente del 
tutto inutile, chissà che in un prossimo articolo... 

a 


1 





7 "... 




2 

i COMPATÌa 


PAGINA GRAFICA 



— — — —4 4— 

— 44 (4M 4—4 —— 4— ( (4*. 4 444 444 • 4 — 4 

(4— (444 4 — 4 44— 4—4 —44 4—4 —44 44— 44— 

j 

7 M 




4 

LEGGI 

EOO 

$FC 


e- 

SCRIVI 

EOIJ 

$FE • 


6 

4 

ORG 

$300 


7 

8 

Srecupero 


BYTE 120-127 

9 


•4M M4* (444 l ■■« — 4| . —. 

— — —4 4—4 —4 — —4 4— 

4—4 44— 4—4 (4 44 4444 —— —— 4—4 4—4 4 — 4 

7 

7 M 




\ 10 


LDY 

* 12 0 

SCRIVICI6384+120 

11 


STY 

SCRIVI 


12 


LDY 

* $ 4 0 

(HGR *$20) 

13 


STY 

SCRIVI*1 


14 


LDY 

•IO 

LEGGI=24576-4*128 

15 


STY 

LEGGI 


16 


LDY 

* $ 5 e: 

(HGR *$3E. ) 

17 

18 
19 


STY 

LEGGI*1 


INIZIO 1 

LDY 

lì 

CD j 

1 

1 

li 

li 

II 

li 


20 

CICL01 

L D A 

(LEGGI), 

Y 

21 


STA 

(SCRIVI) 

» Y 

'?'? 

l.. 


INY 



23 


CPY 

#8 


24 


B NE 

CICLO1 


O C* 





X- vJ 

7 




26 


CL.C 


LEGGI=LEGGI+8 

27 


LDA 

LEGGI 


28 


ADC 

♦ 8 


29 


CMP 

*120 

FINE RIGA? 

30 


BEO 

CONTI 


31 


CMP 

*248 


32 


E: NE 

C0NT2 


33 


LDA 

LEGGI+1 

FINE? 

34 


CMP 

♦ $5F 

(HGR *$3F> 

f 35 


BEO 

C0NT3 


36 


INC 

LEGGI*1 


37 


LDA 

*0 


38 


BEO 

C0NT2 


39 

CONTI 

LDA 

*128 


40 

C0NT2 

STA 

LEGGI 


41 

42 

♦ _ 




* - 

CLC 


SCRIVI-SCRIVI+128 


Listato 1 - Programma di 
compattazione. 
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Seguite listato 1. 



43 


LDA 

*128 



44 


ADC 

SCRIVI 



45 


STA 

SCRIVI 



46 


BCC 

INIZIO 1 



47 


INC 

SCRIVI+1 



48 

40 


BCS 

INIZICI 



i 7 

f - 





50 

} RECUPERO 


BIT 7 


er h 

♦ — 





J 1 

t - 





! 52 

C0NT3 

LDY 

*$40 

LEGGI = : 16384 + 6720 


53 


STY 

LEGGI 



54 


LDY 

*$5A 

(HGR *$3A) 


55 


STY 

LEGGI+1 

v 



56 


LDY 

* $ 0 

SCRIVI-16384 


57 


STY 

SCRIVI 



58 


LDY 

*$40 

(HGR *$20) 


59 


STY 

SCRIVI+1 



A fi 

♦ - 





O U 

t 





61 

INIZI02 

LDY 

*0 



62 


LDA 

(LEGGI) , 

Y 


63 

CICL02 

LSR 

A 

BIT 0 Nc!L CARRY 


64 


TAX 


SALVA A 


65 


PHP 


SALVA CARRY 


66 


LDA 

(SCRIVI) 

» Y 


67 


ASL 

A 



68 


PLP 




69 


POR 

A 

BIT 7-CARRY 


70 


STA 

(SCRIVI) 

»Y 


71 


TXA 




72 


INY 




73 


CPY 

*7 



74 


B NEE 

CICL02 



75 

♦ 

f - 





76 


INC 

LEGGI 

L. E G GI=L. E G GI +1 


77 


E: NE! 

CQNT4 



78 


INC 

LEGGI+l 



79 

C0NT4 

CLC 


SCRIVI-SCRIVI+7 


80 


LDA 

*7 



1 81 


ADC 

SCRIVI 



82 


STA 

SCRIVI 



83 


BCC 

C0NT5 



! 84 


INC 

SCRIVI+1 


• 

85 

C0NT5 

CMP 

*$40 

FINE? 


86 


BNE 

INIZI02 



87 


LDA 

*$5A 

(HGR *$3A) 


88 


CMP 

SCRIVI+1 



89 


BNE 

INIZI02 



90 


RTS 
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M.. M. 

... — —-— — — — — •* 

*• MM •••• • * »»■ IH I 

n 

> ESPANDI 

PAGINA GRAFICA 


3 

4 

♦ 




f .. IM 

LEGGI 

EQU 

$ F C 


5 

SCRIVI 

EQU 

$FE 


6 

7 

ii 

li 

ii 

li 
» • 

I! 

li 

1! 

ORG 

»•» » —» >*m mi 

$300 

»«»» 1 MI IMI MM ||M • •• • ■••• mt 

M •••• MM •••« M«< IMI •• *« 

8 

9 

}ESPANDI 

BIT7 


*• I— « •••• •••• •••• IMI •••• MM 

10 

t . " " 

LDY 

*0 

LEGGI*16384 

11 


STY 

LEGGI 


12 


LDY 

: l$4 0 

(HGR *$20) 

13 


STY 

LEGGI+1 


14 


LDY 

*$40 

SCRIVI*16384+6720 

15 


STY 

SCRIVI 


16 


LDY 

♦ $ 5 A 

(HGR * $ 3 A) 

17 


STY 

SCRIVI+1 


18 

♦ _ ___ 




f 




19 

INIZIO 1 

L.DX 

*0 


20 


LDY 

*6 


21 

CICL01 

L.DA 

< LEGGI) , Y 


ryry 
X- X. 


ASL. 

A 

BIT 7 NEL CARRY 

23 


PHA 


SALVA A 

24 


TXA 



25 


ROL 

A 

BIT 0=CARRY 

26 


TAX 



27 


PLA 



28 


LSR 

A 

BIT 7-0 

29 


STA 

(LEGGI) , Y 


30 


DE.Y 



31 


BPL 

CICLO1 


32 


BEO 

CICL.01 


33 

♦ _ 




t ~ 




34 


TXA 



O cr 
JvJ 


LDY 

*0 


j 36 


STA 

(SCRIVI) , Y 


37 


INC 

SCRIVI 

SCRIVI=SCRIVI+1 

38 


BNE 

CONTI 


39 


INC 

SCRIVI+1 


40 

CONTI 

LDA 

LEGGI 

LEGGI=LEGGI+7 

41 


CLC 



42 


ADC 

*7 


43 


STA 

LEGGI 


44 


BCC 

CQNT2 


45 


INC 

LEGGI+1 


46 

C0NT2 

CMP 

*$40 


47 


BNE 

INIZIOl 

FINE? 




Listato 2 - Programma 
di espansione. 
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Seguito listato 2. 



48 


LDA 

*$5A 


49 


CMP 

LEGGI+1 


50 

51 


BNE 

INIZIO 1 


J J. 

52 

53 

54 

; ESPANDI 

BYTE 

120-127 



LDY 

*0 

SCRIVI=24576~4*128 

55 


STY 

SCRIVI 


56 


LDY 

*$5E 

(HGR *$3E) 

57 


STY 

SCRIVI+1 


58 


LDY 

*120 

LEGGI=16384+120 

59 


STY 

LEGGI 


1 60 


LDY 

*$40 

(HGR *$20) 

61 


STY 

LEGGI+1 


62 

♦ _ 




f - 




63 

INIZI02 

LDY 

*0 


64 

CICL02 

LDA 

(LEGGI) , 

Y 

| 65 


STA 

(SCRIVI) 

t Y | 

66 


INY 



67 


CPY 

*8 


68 


BNE 

CICL02 


69 

^ —• ■ IH» WM MM »—■ »M» m 

_ . 

H»l •••» 1 M » » IM HI* MM IMI llll IH» 

mi iHi HI ■ ••• iiii il» IM» IMI iiii H« • 

f .... ‘ 




1 7 0 


CLC 


SCRIVI=SCRIVI+8 

71 


LDA 

SCRIVI 


72 


ADC 

*8 


73 


CMP 

*120 

FINE RIGA? 

74 


BEO 

C0NT4 


75 


CMP 

*248 


76 


BNE 

C0NT5 


77 


LDA 

SCRIVI+1 

FINE? i 

78 


CMP 

♦ $5F 

(HGR *$3F) 

79 


BNE 

C0NT3 


80 


RTS 



81 

C0NT3 

INC 

SCRIVI+1 


82 


LDA 

*0 


83 


BEO 

C0NT5 


84 

C0NT4 

LDA 

*128 


85 

C0NT5 

STA 

SCRIVI 


86 

♦ 




f 




87 


CLC 


LEGGI=LEGGI+12£) 

88 


LDA 

*128 

• 

• 

89 


ADC 

LEGGI 


90 


STA 

LEGGI 


91 


BCC 

INIZI.02 


92 


INC, 

LEGGI+1 


93 


BCS 

INIZI02 
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0300- 

AG 

78 

84 

FE 

A0 

40 

84 

FF 

0300- 

A0 

00 

84 

FC 

AO 

40 

84 

FD 

0308- 

A0 

00 

84 

FC 

A0 

5E 

84 

FD 

0308- 

A0 

40 

84 

FE 

AO 

5A 

84 

FF 

0310- 

A0 

00 

E:l 

FC 

91 

FE 

C8 

CO 

0310- 

A2 

00 

A0 

06 

B1 

FC 

OA 

48 

0318- 

08 

DO 

F7 

18 

A5 

FC 

69 

08 

0318- 

8A 

2A 

AA 

68 

4 A 

91 

FC 

88 

0320- 

C9 

78 

F0 

IO 

C9 

F8 

DO 

0E 

0320- 

10 

F2 

FO 

FO 

8 A 

AO 

00 

91 

0328- 

A5 

FD 

C9 

5F 

F0 

17 

E6 

FD 

0328- 

FE 

E6 

FE 

DO 

0 2 

E6 

FF 

A5 

0330- 

A9 

00 

F0 

02 

A9 

80 

85 

FC 

0330- 

FC 

18 

69 

07 

85 

FC 

90 

02 

0338- 

18 

A9 

80 

65 

FE 

85 

FE 

90 

0338- 

E6 

FD 

C9 

40 

DO 

D2 

A9 

5A 

0340- 

CF 

E6 

FF 

B0 

CB 

A0 

40 

84 

0340- 

C5 

FD 

DO 

CC 

AO 

00 

84 

FE 

0348- 

FC 

A0 

5A 

84 

FD 

A0 

00 

84 

0348- 

A0 

5E 

84 

FF 

AO 

78 

84 

FC 

0350- 

FE 

A0 

40 

84 

FF 

A0 

00 

B1 

0350- 

A0 

40 

84 

FD 

AO 

00 

B1 

FC 

0358- 

FC 

4A 

AA 

08 

B1 

FE 

0A 

28 

0358- 

91 

FE 

C8 

CO 

08 

DO 

F7 

18 

0360- 

6A 

91 

FE 

8A 

C8 

CO 

07 

DO 

0360- 

A5 

FE 

69 

08 

C9 

78 

FO 

11 

0368- 

F0 

E6 

FC 

DO 

02 

E6 

FD 

18 

0368- 

C9 

FB 

DO 

OF 

A5 

FF 

C9 

5F 

0370- 

A9 

07 

65 

FE 

85 

FE 

90 

02 

0370- 

DO 

01 

60 

E6 

FF 

A9 

00 

FO 

0378- 

E6 

FF 

C9 

40 

DO 

D7 

A9 

5 A 

0378- 

02 

A9 

80 

85 

FE 

18 

A9 

80 

0380- 

C5 

FF 

DO 

DI 

60 




0380- 

65 

FC 

85 

FC 

90 

CE 

E6 

FD 










0388- 

B0 

CA 








Listato 3 - Codici esade- 
c ima li relativi ai due 
programmi. A sinistra il 
programma di compat¬ 
tazione, a destra quello 
di espansione. 



non perdete 
il nuovo numero di 


• Linguaggio macchina 
con il VIC e C64 

• Dal BASIC al Pascal 

• Abukir 1798: simulazione 
di una battaglia navale 
con il PET 

• Linguaggio macchina 
con il Sinclair 

• Suoni non parole per Apple 

• Un potente word processor 
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Applesoft strutturato: 
arricchiamo il BASIC 

Applesoft 


Di programmazione strutturata, e dei benefici non solo dal punto di vista pratico, ma anche 
da quello educativo, che molti sostengono possa procurare a chi ne fa uso, si è parlato e 

scritto parecchio. 

Chi però ha imparato a programmare direttamente in BASIC sul proprio personal, avrà 
probabilmente tuttora idee molto vaghe in proposito, come sempre avviene quando di qualcosa 

si è sentito parlare ma non la si è sperimentata direttamente. 



di G. Azzall 


B ene, ecco un programma eh© permette, a 
chiunque possieda un Apple II dotato del 
solo Applesoft, di "arricchire" il BASIC di questo 
personal con alcune istruzioni tipiche della pro¬ 
grammazione strutturata. 

Per poterlo utilizzare è necessario disporre anche 
della routine PGM1 <—> PGM2, presentata su 
questa rivista nella rubrica "Il ricettario - Apple a 
mezzadria". 

Il programma funziona come "traduttore": esa¬ 
mina il programma di partenza, che può essere 
costituito da tutte le normali istruzioni Applesoft e 
in più dalle istruzioni "aggiunte" di tipo struttura¬ 
to, e lo trasforma in un normale programma BA¬ 
SIC. Quindi lo scopo di questo traduttore non è 
quello di "emulare" linguaggi più evoluti, ma, più 
semplicemente, di facilitare la programmazione 
in BASIC. Per chi già conosce IT^pplesoft, occorre 
solo imparare qualche nuova istruzione; inoltre, il 
prodotto della traduzione potrà "girare" su qua¬ 
lunque Apple senza più bisogno del traduttore. 

Le istruzioni "supplementari" sono le seguenti: 
REPEAT-UNTIL, WHILE-WEND, IF-THEN-(ELSE)-ENDIF. 
Prima di esaminarne il significato, precisiamo al¬ 
cune importanti limitazioni: 

— tutte queste parole chiave devono essere rac¬ 
chiuse tra doppi apici (in caso contrario, infatti, il 
BASIC tenterebbe di interpretarle secondo le pro¬ 
prie regole: REPEAT, ad esempio, verrebbe spez¬ 
zato nella variabile REPE e nella parola chiave 
AT), 

— non devono essere lasciati spazi nè tra le singo¬ 
le lettere di una parola chiave nè tra gli apici e la 
parola chiave stessa, 

— le parole chiave "aggiunte" devono occupare 
da sole una linea di programma (non è permes¬ 
so, cioè, concatenarle ad altre istruzioni median¬ 
te i due punti). 

Vediamo ora la sintassi e il significato delle varie 
strutture, nonché la loro traduzione in BASIC: 

1 ) struttura REPEAT-UNTIL 


10 

"REPEAT" 


20 


SI 

30 

• 


S2 

■ 

• 

100 


• 

Sn 

110 

"UNTIL" expr 



Significato: la sequenza di istruzioni S1...Sn viene 
ripetuta finché l'espressione logica "expr" non di¬ 
venta vera; il test su "expr" viene eseguito dopo la 
sequenza SI ...Sn. 

(Nota: gli statement SI ... Sn sono stati scritti inco¬ 
lonnati a destra del REPEAT per evidenziare la 
struttura, ma in pratica si potranno scrivere nor¬ 
malmente aH'inizio della riga, o anche più di uno 
sulla stessa riga separati da due punti; questo 
varrà anche per i prossimi esempi). 

La struttura REPEAT-UNTIL viene tradotta così: 


10 REM REPEAT 
20 SI 
30 S2 


100 Sn 

110 IF NOT (expr) THEN 10 


2) struttura WHILE-WEND 


10 

"WHILE" expr 


20 


SI 

30 

t 


S2 

• 

• 

100 


• 

Sn 

110 

"WEND" 
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Significato: la sequenza di istruzioni SI ... Sn viene 
ripetuta finché l'espressione logica "expr" si man¬ 
tiene vera; il test su "expr" viene eseguito prima 
della sequenza SI ... Sn. 

La struttura WHILE-WEND viene tradotta così 
(con XXX si è indicato il numero di linea del l'istru¬ 
zione successiva a WEND): 


10 IF NOT (expr) 
THEN XXX 
20 SI 
30 S2 


100 Sn 

110 GOTO 10 
XXX 

Nel caso non vi sia un'istruzione successiva a 
WEND (cioè WEND è l'ultima istruzione di un pro¬ 
gramma), al posto del numero di linea XXX viene 
messo un END. 

3) struttura IF-THEN-(ELSE)-ENDIF 

Ci si potrebbe chiedere il motivo per cui non è 
stata inserita la sola parola chiave ELSE, dal mo¬ 
mento che il BASIC possiede già l'istruzione IF- 
THEN. La spiegazione è che l'IF strutturato consen¬ 
te di superare la limitazione del BASIC di dover 
scrivere tutte le istruzioni conseguenti all'IF nella 
stessa linea di programma. In BASIC, infatti, si de¬ 
ve scrivere: 

IF expr THEN S1:S2:...:Sn, 

dove SI ...Sn sono le istruzioni da eseguire se "expr" 
è vera. Questo modo di scrivere può non essere 
attuabile se la sequenza SI... Sn è troppo lunga, o 
se uno degli statement SI ... Sn è a sua volta un 
IF-THEN, e bisogna allora ricorrere a scomode "pe¬ 
rifrasi". 

La forma strutturata dell'istruzione IF, invece, 
consente di scrivere un numero illimitato di linee 
di programma da eseguire se la condizione è 
vera, e un numero illimitato di linee di program¬ 
ma da eseguire se la condizione è falsa (ELSE). 
Naturalmente, rimane ancora utilizzabile la for¬ 
ma normale IF...THEN, che si distingue dalla pre¬ 
cedente per la mancanza dei doppi apici. 
Ecco come va usato l'IF strutturato: 


10 

"IF" expr "THEN" 


20 

• 


SI 

• 

• 

100 


• 

Sn 

110 

"ELSE" 


120 

• 


S'1 

• 

• 

200 


• 

S'n 

210 

"ENDIF" 



Significato: se l'espressione logica "expr" è vera, 


10 REM PROGRAMMA EUCLIDE 
20 REM CALCOLA IL M*C*D* 
30 REM TRA DUE NUMERI 
40 REM 

50 INPUT * A f B? "fIfJ 

60 *WHILE B I < > J 

70 ■IF■I > J-THEN- 

80 I * I - J 

90 "ELSE 1 

100 J = J - I 

110 ■ENDIF■ 

120 ■WEND B 

130 PRINT -M.C♦D.* B fI 


10 

REM PROGRAMMA EUCLIDE 

20 

REM CALCOLA 

IL M*C*D* 

30 

REM TRA DUE 

NUMERI 

40 

REM 


50 

INPUT -AfEì? 

■ fIf J 

60 

IF NOT (I < 

> J)THEN 130 

70 

IF NOT <1 > 

J) THEN 100 

80 

I * I - J 


90 

GOTO 110 


100 

J m J - I 


110 

REM ENDIF 


120 

GOTO 60 


130 

PRINT " M ♦ C ♦ 

D♦="?I 


vengono eseguite le istruzioni SI... Sn, altrimenti le 
istruzioni S'1 ... S'n. 

(Se non vi sono le istruzioni S'1 ... S'n, ELSE può 
essere omesso) 

La struttura IF-THEN-ELSE viene tradotta così: 

10 IF NOT (expr) THEN 120 
20 SI 


100 Sn 

110 GOTO 210 
120 S'1 


200 S'n 

210 REM ENDIF 

Nelle figure 1 e 2 sono riportati due semplici pro¬ 
grammi, che fanno uso di tutte le strutture descrit¬ 
te, prima e dopo la traduzione (il primo calcola il 
M.C.D. tra due numeri con il metodo di Euclide, il 
secondo stampa la ... tavola pitagorica). 



Figura 1 - Programma 
Euclide nella versione 
Applesoft esteso. 


Figura la - Programma 
Euclide dopo la tradu¬ 
zione (tempo di tradu¬ 
zione circa 6 secondi). 
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Figura 2 - Programma 
tavola Pitagorica nella 
versione Applesoft este¬ 
so. 


Figura 2a - Programma 
tavola Pitagorica dopo 
la traduzione (tempo di 
traduzione 5 secondi). 



10000 

REM TAVOLA PITAGORICA 

10005 

REM 

10010 

HOME 

10020 

A = 1 

10030 

"REPEAT" 

10040 

B « 1 

10050 

■REPEAT■ 

10060 

PRINT T AB ( 3 * B)B * A; 

10070 

B = E: + 1 

10080 

■UNTIL■B =10 

10085 

PRINT t PRINT 

10090 

A = A + 1 

10100 

■UNTIL B A * 10 

10110 

PRINT J PRINT 


1 0000 

REM TAVOLA 

PITAGORICA 

1 00 05 

REM 


10010 

HOME 


10020 

A = 1 


10030 

REM REPEAT 


10040 

B = 1 


10050 

REM REPEAT 


10060 

PRINT TAB( 

3 * EOB * a; 

10070 

B = B + 1 


10080 

IF NOT <B = 

10)THEN 1005 

0 

10085 

PRINT : PRINT 

10090 

A = A + 1 


10100 

IF NOT (A • = 

10) THEN 1003 

0 

10110 

PRINT J PRINT 


Descrizione del programma 

Come anticipato, il programma "traduttore" 
richiede che sia stata preliminarmente caricata 
la routine PGM1 <—>PGM2, che consente di allo¬ 
care due programmi BASIC in memoria. Questo si 
rende necessario per il fatto che sia il "traduttore", 
sia il programma da tradurre, sono scritti in BASIC 
(il secondo è scritto in "BASIC esteso", ma ciò non 
fa differenza ai fini del caricamento in memoria). 
Per quanto riguarda l'uso della routine PGM1 
<—> PGM2 si rimanda all'articolo in cui la routine 
stessa è stata descritta; qui si precisa soltanto che 
il "programma 2" (allocato in posizione più alta) 
sarà costituito dal traduttore, mentre il "program¬ 
ma 1" sarà quello da tradurre. Per awiare la tra¬ 
duzione si deve richiamare il programma 2 con 
CALL768 e dare il RUN. 

In figura 3 è riportato il listato del "traduttore 
BASIC esteso — BASIC". Il programma principale è 
costituito dalle righe 300-350, e svolge la funzione 
di esaminare una ad una le linee del programma 
da tradurre. Quando viene incontrata una parola 


chiave tra doppi apici, si chiama una routine 
(linee 1000-1210) che la confronta con le parole 
chiave del "BASIC esteso" memorizzate in una 
tabella; se viene riconosciuta una parola valida, 
l'esecuzione passa alla parte di programma pre¬ 
posta alla traduzione di quell'istruzione. 

La traduzione vera e propria si ottiene modifi¬ 
cando con dei POKE le istruzioni del programma 
di partenza; se la traduzione è più lunga dell'ori¬ 
ginale, bisogna anche rilocare la parte di pro¬ 
gramma che va da quel punto alla fine. Questa 
operazione (compiuta dalla routine CREASPAZI, 
linee 10000-10200) è particolarmente gravosa in 
quanto, oltre allo spostamento del programma, è 
anche necessario riaggiomare per ogni istruzione 
il puntatore alla successiva, nonché modificare i 
puntatori di fine programma, inizio variabili sem¬ 
plici ecc., che la routine PGM1 <— >PGM2 "salva" 
nella zona di memoria da $352 a $361. 

Se invece l'istruzione tradotta è più breve di 
quella originale, anziché rilocare il programma 
(operazione che comporta un notevole rallenta¬ 
mento dell'esecuzione) si preferisce "riempire i 
buchi" dell'istruzione precedente con dei codici 
privi di effetto (ad esempio REPEAT viene trasfor¬ 
mato in REM REPEAT cambiando il codice degli 
apici di sinistra con il codice del REM e il codice 
degli apici di destra con quello del blank). 

Per ciascun tipo di struttura è necessario l'uso di 
uno stock, per memorizzare il numero di linea a 
cui si dovrà tornare quando si incontra l'istruzione 
di "chiusura" della struttura (ad esempio, quan¬ 
do si incontra 100 REPEAT il numero di linea 100 
viene inserito nello stock, per essere poi utilizzato 
in corrispondenza dell'UNTIL). Nel caso del WHILE 
ciò non è possibile, perché quando lo si incontra 
bisognerebbe già conoscere il numero di linea 
del WEND, che però viene dopo, e sarebbe quindi 
necessaria una traduzione "in due passate". L'o¬ 
stacolo viene superato inserendo nello stock, an¬ 
ziché il numero di linea, la locazione di memoria 
in cui si dovrà "pokare" tale numero di linea 
quando lo si sarà incontrato. Il numero massimo 
di "livelli di annidamento" delle strutture è 20, ma 
può essere aumentato modificando semplice- 
mente le istruzioni di DIMensionamento alle linee 
100 e 110. 

È previsto un certo numero di messaggi d'errore 
che segnalano, limitatamente alle istruzioni "ag¬ 
giunte", sia errori di sintassi, sia errori di struttura 
(ad esempio un UNTIL incontrato prima di un RE¬ 
PEAT). Un errore rilevato a traduzione avanzata, 
però, porta ad un programma tradotto solo a 
metà che può dare degli inconvenienti quando 
si tenta di riavviare la traduzione; è consigliabile 
perciò salvare il programma fin dall'inizio (cioè in 
versione "Applesoft esteso"), in modo da poter 
ricominciare da capo se necessario. 

A traduzione terminata (o in caso di errore) il 
programma effettua una CALL768 e perciò il pas¬ 
saggio programma 2 — programma 1 avviene 
automaticamente (dando il comando LIST si ve¬ 
drà direttamente il programma tradotto). 

Chiudiamo per ora il discorso sulle applicazioni 
della tecnica dei "due programmi in memoria", 
anticipando però che sono in fase di realizzazio¬ 
ne anche un "editor di linea" e un programma 
per la stampa "ordinata" dei listati, entrambi ba¬ 
sati su questa tecnica. s/m 
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LISTA DELLE VARIABILI 

• 

UTILIZZATE 

MAX 

Numero massimo di parole chia¬ 
ve riconoscibili. 

NL 

Numero di linea dell’istruzione 
corrente. 

CO 

Codice operativo dell’istruzione 
esaminata. 

i,j 

Indici generici dei cicli. 

II 

Indirizzo iniziale dell’istruzione 
corrente. 

PI 

Indirizzo istruzione successiva. 

NI 

Puntatore generico all’interno 
dell’istruzione. 

N2 

Puntatore all’ultimo carattere di 
una parola chiave aggiunta. 

N3 

Puntatore al primo indirizzo da 
incrementare in CREASPAZI. 

N4 

Puntatore al numero di linea che 
CONVERTI NUMERO deve 
trattare. 

LN 

Variabile locale di CONVERTI- 
NUMERO contenente il nume¬ 
ro di linea. 

UB 

Indirizzo ultimo byte di memo¬ 
ria occupato dal programma. 

BS 

Indirizzo a partire dal quale 
CREASPAZI deve rilocare il 
programma. 

BN 

Numero di byte che CREASPA¬ 
ZI deve liberare. 

T,T1,T2 

Variabili temporanee generiche. 

DV 

Fattore di divisione in CON- 
VERTINUMERO. 

SG 

Flag indicante cifra significati¬ 
va. 

ER 

Variabile logica: è TRUE se si 
riscontra un errore nella sintassi 
di THEN. 

CV 

Numero di cifre valide restituite 
da CONVERTINUMERO. 

KEY%(6,6) 

Contiene i codici ASCII delle 
parole chiave e il loro numero di 
caratteri. 

NUM%(4) 

Contiene le 5 cifre di un numero 
di linea (codificate ASCII); se il 
numero di linea ha meno di 5 
cifre, le cifre mancanti sono dei 
blank. 

TH%(5) 

Contiene i codici ASCII che 
compongono la parola chiave 
THEN. 

RS%(20,4) 

Stack contenente i numeri di li¬ 
nea delle istruzioni REPEAT. 

Cl%(20) 

N. di cifre valide dei numeri di 
linea contenuti in RS%(20,4). 

WS(20) 

Stack contenente le locazioni di 
memoria associate ai WHILE. 

WS%(20,4) 

Stack contenente i numeri di li¬ 
nea associati ai WHILE. 

IW(20) 

Stack contenente le locazioni di 
memoria iniziali delle istruzioni 
WHILE. 

IS(20) 

Stack contenente le locazioni di 
memoria associate alle istruzio¬ 
ni IF. 

RS,WS,IS 

Stack pointer. 



cipplc L.ÌM 
a gcnova 


li 



Lisa la nuova Workstation 
Apple che si proietta 
nel office automation future 


INOLTRE NEI NOSTRI COMPUTER SHOP... 










^cippkz computar 


APPLE Ili potenziato 
con nuove periferiche 


APPLE Ile il nuovo 
personal inimitabile 


Drive 5" e 8" floppy 
e Winchester fino a 20 MB 


Monitor monocromatici 
e colori ad alte risoluzioni 


Stampanti a margherita 
e aghi veloci e silenziose 


Plotter professionali 
a più colori e formati 


Supporti magnetici e 
accessori di qualità 


Modulistica stampati 
libri e letterature 



INFORMATICA 


DISTRIBUZIONE 
PER L'ITALIA 


Dove?! 


computar cantar 


S.3.S. 


Ili 


Corso Sardegna, 36 - GENOVA - Tel. 010/516796 
Corso Gastaldi. 77/R - GENOVA - Tel. 010/300797 
Via S. Vincenzo, 129/R - GENOVA - Tel. 010/581815 


fé 
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Figura 3. 



COME È ... STRUTTURATO 
L’APPLESOFT 
(dedicato agli applisti neofiti) 

Se, dopo aver caricato un programma BASIC, 
potessimo “vedere” come si presenta la relativa 
area di memoria (cioè quella che normalmente va 
dalla locazione decimale 2048 in poi) troveremmo 
una disposizione simile a quella in figura. 

La locazione iniziale 2048, pur non facendo parte 
del programma vero e proprio, deve necessaria¬ 
mente contenere il valore zero; con la 2049 hanno 
inizio le istruzioni, che sono costituite ciascuna da 
4 byte iniziali, da una parte centrale variabile e da 
un byte di chiusura. 

I primi 2 byte contengono un puntatore all’inizio 
dell’istruzione successiva, gli altri due contengono 
il ‘‘numero di linea”. Leggendo il contenuto dei 
primi due, il BASIC è in grado di passare da un’i¬ 
struzione all’altra senza doverle esaminare per in¬ 
tero (questo fatto è sfruttato anche dal programma 
“traduttore”). 

La parte centrale contiene invece l’istruzione vera 
e propria (che può in realtà essere formata da più 
istruzioni, visto che il BASIC consente di metterne 
più d’una nella stessa linea di programma). Biso¬ 
gna osservare che, quando si preme RETURN do¬ 
po aver battuto una riga di programma, essa non 
viene ricopiata in memoria così com’è scritta, cioè 
come insieme di caratteri ASCII, ma viene prima 
sottoposta ad un lavoro di “compattazione”: gli 
spazi superflui vengono eliminati, e le “parole 
chiave” del BASIC vengono rappresentate me¬ 
diante un codice di un solo byte (cosicché RESTO- 
RE e 1F, ad esempio, occupano lo stesso spazio in 
memoria). La tabella completa di questi codici 
(“token”) si trova a pag. 121 del manuale Apple¬ 
soft. I valori di questi “token” cadono al di fuori 
del campo dei codici ASCII; in questo modo una 
parola chiave è immediatamente distinguibile da 
un nome di variabile, da un carattere di separazio¬ 
ne, o da un numero (i numeri vengono ricopiati in 
memoria cifra per cifra: ogni cifra è codificata 
ASCII ed occupa un byte). La “compattazione” 
non viene invece eseguita su quanto è racchiuso tra 
doppi apici o su ciò che segue un REMo un DA TA . 
Nell’ultimo byte di ogni istruzione troviamo uno 
zero che serve come “marca” di fine linea. Il termi¬ 
ne dell’intero programma è a sua volta indicato 
dalla presenza di due zeri nei byte che seguono 
l’ultima istruzione, dove dovrebbe trovarsi il pun¬ 
tatore alla linea di programma successiva (che in 
questo caso non esiste). 

Sia l’indirizzo d’inizio sia quello finale del pro¬ 
gramma sono contenuti in appositi puntatori di 
pagina zero: il primo nelle locazioni $67 e $68, il 
secondo in $DAF e $B0. 

Subito dopo la fine del programma comincia lo 
spazio riservato alle variabili (la cui “mappa”, cioè 
lo schema della rappresentazione in memoria, è 
riportata a pag. 137 del manuale Applesoft). An¬ 
che per la locazione iniziale delle variabili esiste un 
puntatore (LOMEM), situato in $69 e $6A, che 
normalmente coincide con il termine del program¬ 
ma, ma che può essere modificato con l’istruzione 
LOMEM : qualora sia necessario proteggere l’area 
delle variabili da possibili “sporcamenti” (come 
può avvenire in caso di sovrapposizione con una 
pagine grafica ad alta risoluzione). 


LOMEM 


V 


204* 


Zs / / // /// f 


// MEMORIA 
RISERVATA ALLA 
PAGINA 01 TESTO 
E Al GRAFICI IN 
BASSA RISOLUZIONE 


f / 


/ 


S ' ' > ' 

ZZi. L. 


' ' f / * / 


J / / . J 


0 INIZIO PROGRAMMA 


PRIMA 

ISTRUZIONE 


SECONDA 

ISTRUZIONE 


PUNTATORE 
DI INIZIO 
PROGRAMMA 
S V ■ S 6* 


Formalo di una 
ganartca ittruxion. 


N-ESIMA 

ISTRUZIONE 



ULTIMA 


ISTRUZIONE 

0 

FINE 

0 

PROGRAMMA 


(INIZIO VARIABILI) 

S 69 - MA 


' '//////A 

/ SPAZIO 
RISERVATO 
ALLE 

' VARIABILI 


t 


/ 


'• //■'// // V, // // 


byta batto 

Puntatola Inizio Itlruzlona tuccattlva-- 

byta allo 

byta batto 

-Numaro di Unta — 

bytt alto 

< - 

Primo byta da* Ittruzlona .ara t propria 


Ultimo byta dall ltlruzlona «ara a propria 
0 FINE ISTRUZIONE 


PUNTATORE 
DI FINE 
PROGRAMMA 
$ AF - $ B0 


Figura 4-11 listato BA SIC. 


10 
20 
30 
35 
4 0 
45 
50 
55 
60 
70 
80 
85 
90 
100 

110 

120 

130 

140 

150 

160 

170 

180 

199 

200 
201 
205 
210 
215 
220 
225 
230 
235 
240 


REM Z%%7.%*Z%7.%7.%%%%7.7.2%ZZ%7.% 
REM X % 

REM ^TRADUTTORE % 
REM % x 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


X BASIC ESTESO ->BASIC X 


7. % 
% PER APPLE II X 
% X 
X G* AZZALI - 1982 X 
X y. 


V "/ V V 7 V V V V V 7 V V V V 7 V V V V V V V V 

/"/•/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m/m 


REM 

TEXT 


DIM NUM%(4) pRS7.(20p4)pC1%(20 
)pKEY%(6pÓ) pTH%(5) 

DIM W5(20)pWS7(20p4)pIW( 20)p 
IS(20) 

FOR I = 0 TO 6 

FOR J = 0 TO 6 

IF J > KEY7.(Ip0) THEN 160 

READ KEYZ(IpJ) 

NEXT J NEXT 

FOR I = 0 TO 5J READ THZ(I)J 
NEXT 

UB = PEEK (864) + 256 * PEEK 
(865) 

♦ 

♦ 

REM PAROLE CHIAME 

♦ 

♦ 

REM REPEAT 

DATA 6p82p69p80p69p65p84 
REM UNTIL 

DATA 5p85p78p84p73p76 
REM WHILE 

DATA 5p87p72p73p76p69 
REM WEND 

DATA 4 p87 p 69 p 78 p 68 
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Seguito figura 4. 


245 
2 


250 


REM IF 

DATA 2 * 73 r 70 
REM ELSE 

DATA 4*69*76*83»69 
REM ENDIF 

DATA 5*69*78,68*73,70 
REM THEN 

DATA 34*84*72*69*78*34 
REM ESAME PROGRAMMA 


255 
260 
265 
270 
275 
280 

289 : 

290 

291 : 

300 II = 2049 

310 PI = PEEK (II) + F'EEK (II + 
1) * 256 

315 IF PI = 0 THEN PRINT J PRINT 
•TRADUZIONE COMPLETATA - : GOTO 
60000 

320 CO = PEEK (II + 4) 

330 IF CO = 34 THEN GOSUE: 1000 
350 II = Pi: GOTO 310 

999 : 

1000 REM CONFRONTO PAROLE CHIAVE 


1001 

1050 

1100 

1110 

1115 

1120 

1130 

1135 

1140 

1150 

1160 


1170 

1200 

1210 

1299 

1300 

1301 
1310 
1320 
1330 
134 0 

1350 
136 0 
1370 
1380 
1999 
20 0 0 
20 01 
210 0 


NL = PEEK (II + 2) + PEEK 


+ 3) * 




(II 

NI - II + 4 
MAX = 6 
I = 0 : J = 1 

IF PEEK (NI + J) < > KEY% 

(I*J) THEN 1150 
IF J > * KEYZ(I*0) AND PEEK 

(NI + J + 1) = 34 THEN 1200 
IF J * KEY%(I*0) THEN 1150 
J = J + i: GOTO 1120 
i = i + i:j = ì 
IF I > MAX THEN PRINT CHR$ 
(7)t PRINT * 7SYNT AX ERROR IN 

•;nl: pop : goto óoooo 

GOTO 1120 
N2 = NI + J + 1 
ON I GOTO 2000*3000*4000*50 
00*6000*7000 


REM TRADUZIONE ■REPEAT■ 


POKE NI*178 
POKE N2 * 32 
RS m RS + 1 

L.N = NL: GOSUB 111 0 0 t Cl% ( RS ) 
« I 

FOR I = 0 TO 4 
RS%(RS * I) = NUM%(I) 

NEXT 

RETURN 


2110 

2120 

2130 

2140 

2150 


REM TRADUZIONE "UNTIL - 

♦ 

♦ 

IF RS = 0 THEN PRINT CHR$ 
(7)t PRINT - ?UNTIL WITHOUT R 
EPEAT ERROR IN - ?NLJ POP 
60000 

POKE NI*173 
POKE NI + 1*198 
POKE NI + 2*40 
NI = N2 + 1 

IF PEEK (NI) = 0 THEN 2180 



GOTO 




PRANDONI S.p.A. 

DIVISIONE INFORMATICA 
v.le Monte Grappa,31 24047 TRE VIGLIO, Bg 
Tel. 0363/47222 Telex 3200101 


PRINCE S.p.A. 

via L.DaVinci 20062 CASSANO d'ADDA,Mi 
Tel. 0363/63222 Telex 334521 
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Seguito figura 4. 



2160 F'OKE NI ~ 4, PEEK (NI) 

2:170 NI = NI + i: GOTO 2150 
2180 NI = NI - 4 
2190 F'OKE NI,41 
220 0 F'OKE NI + 1,196 
2210 IF CIX(RS) < = 2 THEN FOR 

I = 0 TO i: F'OKE NI + 2 + I» 

rs%<rs,d: next : goto 2300 

2220 BN = Cl% ( RS ) - 2 

2230 E.'S = NI + 4 J N 3 = II 

224 0 GOSUE: 1 00 00 

2245 PI a PI -f BN 

2250 FOR I « 0 TO C1%(RS) - 1 

2260 F’OKE N1 + 2 + I,RS%<RS,I> 

2270 NEXT 
2300 RS = RS - 1 
2310 RETURN 

2999 J 

3000 REM TRADUZIONE “WHILE" 

3001 : .> 

3110 F'OKE NI, 173 

3120 F'OKE NI 4- 1,198 

3130 F'OKE NI + 2,40 

3140 N.1 = N2 + 1 

3150 IF PEEK (NI) = 0 THEN 3180 

3160 F'OKE NI - 4, PEEK (NI) 

3170 NI * NI + i: GOTO 3150 
3180 NI = NI - 4 
3190 F'OKE N.1,41 
3200 F'OKE NI 4- 1,196 

3210 WS ~ WS 4 1 

3220 WS(WS) = NI 4- 2JIW(WS) = II 
3230 LN = NLt GOSUE: 11100 
3240 FOR I = 0 TO 4 
3250 WS%(WS,I) = NUM%(I) 

3260 NEXT 

3270 RETURN 

3999 J 

4000 REM TRADUZIONE "WEND" 

4001 : 

4050 IF WS = 0 THEN F'RINT CHR$ 

( 7)1 F'RINT " ?WEND WITHOUT WH 
ILE ERROR IN “JNLJ POP l GOTO 
60000 

4100 F'OKE NI,171 

4110 FOR I = 0 TO 4 

4120 F'OKE NI 4- 1 4- I,WS%(WS,I) 

4130 NEXT 

414 0 PP = PEEK ( F’I ) 4- 256 * F'EEK 
(F'I 4- l)t IF PP = 0 THEN 428 
0 

4150 L.N * F'EEK (F'I 4- 2 ) 4- 256 * 
PEEK (F'I 4- 3) 

4160 GOSUE: 11100 
4170 CU * I 

4180 IF CU < =2 THEN 4280 

4190 E:N = CU - 2 
4200 BS = WS(WS) 4- 2 
4210 N3 = IW(WS) 

4220 GOSUE: 1 0000 
4230 F'I = F'I 4- BN 
4240 FOR I = 0 TO CU - 1 
4250 F'OKE WS(WS) + I,NUMX(I) 

4260 NEXT 
4270 GOTO 4320 

4280 IF PP * 0 THEN F'OKE WS (WS) 

,128J F'OKE WS (WS) 4- 1,32J GOTO 
4320 

4290 FOR I * 0 TO 1 


430 0 F'OKE WS (WS) 4- I,NUM%(I) 

4310 NEXT 
4320 WS * WS - 1 
4330 RETURN 

4999 J 

5000 REM TRADUZIONE ■IF-THEN * 

5001 : 

5100 F’OKE NI,173 
5110 F'OKE NI 4- 1,198 
5120 F'OKE NI 4- 2,40 
5130 NI = N2 4- 1 

5150 IF PEEK (NI) = 0 THEN N.1 « 

NI - i: GOTO 5175 
516 0 F'OKE NI - 1, PEEK (N1 N 
5170 NI * NI 4- i: GOTO 5150 
5175 ER » 0: FOR I = 5 TO 0 STEF' 

- 1JN1 a NI - 1 : IF PEEK ( 

NI) < > THZ(I) THEN ER * 1 

5180 NEXT : IF ER THEN F'RINT CHR* 
(7)t F'RINT " ?SYNT AX ERROR IN 

• ;nl: pop : goto óoooo 

5190 F'OKE N1,41 
52 0 0 F'OKE Nl 4 1,196 
5210 IS = IS 4- 1 
5220 IS(IS) = N.1 4- 2 
5230 RETURN 

5999 : 

6000 REM TRADUZIONE "ELSE* 

60 01 t 

6050 IF IS a 0 THEN F'RINT CHR* 
(7)J F'RINT ’ ?ELSE WITHOUT IF 
ERROR IN -;nl: POP : GOTO 6 
0 0 0 0 

610 0 L.N a PEEK (F'I + 2) 4- 256 * 

PEEK (F'I 4- 3) 

6110 GOSUB 11100 

6120 FOR I = 0 TO 4 

6130 F'OKE IS(IS) 4- I,NUMX(I) 

6140 NEXT 
6150 F'OKE Nl, 171 
6160 IS(IS) = Nl 4- 1 
6170 RETURN 

6999 J 

7000 REM TRADUZIONE *ENDIF" 

7 0 01 : 

7050 IF IS = 0 THEN F'RINT CHR$ 
(7)J F'RINT * ?ENDIF WITHOUT I 
f error in b ;nl: POP : GOTO 
60 0 00 

7100 LN = NL 

71.10 GOSUB 11100 

7120 FOR I = 0 TO 4 

7130 F'OKE IS(IS) 4- I,NUM%(I) 

7140 NEXT 
7150 F'OKE N1 ,178 
716 0 F'OKE N2,32 
7170 IS = IS - 1 
7180 RETURN 
9999 J 

10 000 REM CR'EASF'AZI 

10001 : 

10100 FOR I a UB TO BS STEF* - 1 

10110 F'OKE I 4- BN, F'EEK (I) 

10120 NEXT 

10130 UB a UB 4- BN: GOSUB 120 0 0 
10140 TI a PEEK (N3)JT2 « F’EEK 
( N3 4- 1) 

10150 IF TI = 0 AND T2 = 0 THEN 
RETURN 
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.10160 TI = T1 + BN 
10170 IF TI > 255 THEN TI » TI - 
256 l12 = T2 + 1 

10180 POKE N3 * T1♦ POKE N3 + 1,T2 

10190 N3 = TI + 256 * T2 
10200 GOTO 10140 

10999 J 

11000 REM CONVERSIONE NUM♦ LINEA 

110 01 : 

11050 LN = PEEK <N4) + PEEK <N4 
+ 1) * 256 

11100 FOR I = 0 TO 4 
11110 NUhZ<I) = 32 
11120 NEXT 
11130 I = 0JSG = 0 
11140 DV « 10000 

11180 T = INT (LN / DV)JLN = LN - 
T # DV 

11190 IF T > 0 OR SG THEN NUM%(I 
)=T+48:i=I+lJSG=l 
11200 IF DV = 1 THEN RETURN 
11210 DV = DV / 10 
11220 GOTO 11180 

11999 : 

12000 REM INCREMENTO PUNTATORI 

12001 : 


12090 FOR I = 0 TO 4 STEP 2 

12100 J = PEEK (852 + I) + 256 * 
PEEK <853 + I) 

12110 J = J + BN 

12120 POKE 852 + I,J - INT (J / 
256) * 256 

12130 POKE 853 + I» INT (J / 256 
) 

12140 NEXT 

12150 POKE 864fUB - INT (UB / 2 
56) * 256 

12160 POKE 865 1 INT (UB / 256) 

12170 RETURN 

59999 J 

6000 0 REM RITORNO PROGR»PRINCIP» 

60001 : 

60010 IF RS > 0 THEN PRINT CHR$ 
< 7)1 PRINT 1 UNTIL NOT FOUND 
ERROR" 

60020 IF WS > 0 THEN PRINT CHR$ 
(7)1 PRINT "WEND NOT FOUND E 
RROR ■ 

60030 IF IS > 0 THEN PRINT CHR$ 
(7)t PRINT ■ENDIF NOT FOUND 
ERROR" 

60100 CALL 768 


Seguito figura 4. 
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SISTEMI PER L’INFORMATICA 

ROMA - Via Fonti del Clitunno, 11 - Tel. 06/7945423 
PESCARA - Via F. De Blasiis, 9 - Tel. 085/692576 


PERSONAL - RETI DI PERSONAL - MINICOMPUTER da 16 e 32 BITS. 

PERIFERICHE SPECIALI: PLOTTER - TAVOLETTE GRAFICHE - VIDEO GIGANTI 
STRUMENTAZIONE: CONTROLLORI PROGRAMMABILI - COMPUTER 

PER LA GESTIONE DI SISTEMI E COLLEGAMENTO 
STRUMENTI DI MISURA DA LABORATORI. 

PROGRAMMI PER LA GESTIONE DELLA SCUOLA: 

STIPENDI - PAGELLE - CONTABILITÀ FINANZIARIA ■ GRADUATORIE - ECC. 

PROGRAMMI PER LA DIDATTICA: 

RAGIONERIA - MATEMATICA ■ CHIMICA - ELETTRONICA - ELETTROTECNICA 

PROGETTI SPECIALI 

CORSI: PROGRAMMAZIONE STRUTTURATA; BASIC; COBOL; ASSEMBLER. 
MICROELETTRONICA E MICROPROCESSORI. CONTROLLO 
DI PROCESSI INDUSTRIALI 

PROGRAMMI PER LA GESTIONE AZIENDALE: CONTABILITÀ E MAGAZZINO 
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Caccia alla cifra. 
Un “display-game” 
per la FX 702P 


Una delle caratteristiche più interessanti della FX-702P è la possibilità di gestire il suo display 
che non è certo paragonabile al video di un personal, ma che per un pocket-computer risulta 
comunque molto versatile, per creare giochi con simpatici effetti grafici e che richiedono 

velocità ed attenzione da parte del giocatore. 


di G. De Nlcolao 



| I gioco presentato in questo articolo è un 
• esempio semplice, ma divertente, di come 
si possono ideare dei veri e propri display-game 
(detti anche video-game dei poveri) con la FX 
702P. 

Spieghiamo come si deve procedere per an¬ 
dare a caccia di cifre. Una volta ricopiato il pro¬ 
gramma in una delle 10 aree di memoria, si può 
iniziare a giocare premendo RUN EXE. Apparirà 
subito la scritta 'VELOCfTA':(1/20)?", a cui il gio¬ 
catore dovrà rispondere con un nùmero compre¬ 
so tra 1 e 20 corrispondente alla velocità deside¬ 
rata (si tenga presente che con velocità uguali o 
superiori a 15 è praticamente impossibile vincere, 
anche se può essere stimolante mettere alla pro¬ 
va la propria resistenza a ritmi così frenetici). Se 
per esempio avremo premuto "10 EXE", apparirà 
una seconda scritta: "LfVELLO:(1/7)", cui si deve 
rispondere con un numero compreso tra 1 e 7. Il 
livello, come spiegherò più avanti, è direttamen¬ 
te proporzionale alla difficoltà. 

A questo punto inizia il gioco vero e proprio; 
sulla destra del display appariranno i simboli 
OXXXX" e, dopo qualche secondo, apparirà 
sulla sinistra un numero casuale compreso tra 0 e 
9. Se si preme ripetutamente il tasto "+", lo "0" 
che precede i simboli "XXXX" diventerà un "1", 
poi un "2", un "3" e così via fino al "9" per riprende 
nuovamente dallo "0". Lo scopo del gioco consi¬ 
ste neH'incrementare questo contatore median¬ 
te il tasto "+" fino a che II suo valore non sia 
uguale a quello del numero apparso sulla sinistra. 
A questo punto premendo il tasto "E" ( non quello 
della lettera alfabetica, ma quello vicino al "+", 
che sta per esponente), se il valore del contatore 
è uguale al numero mostrato, il numero scompa¬ 
rirà per far posto ad un nuovo numero casuale 
spostato di uno spazio verso sinistra. Si raggiunge¬ 
rà la vittoria quando il numero casuale sarà stato 
ricacciato "fuori dal display", cioè all'estrema si¬ 
nistra del giocatore. Sembrerebbe fin troppo faci¬ 
le, se non ci fosse un piccolo inconveniente: qua¬ 
lora il giocatore sia troppo lento nelle sue opera¬ 
zioni, il numero casuale scompare per lasciare 
posto ad un nuovo numero spostato di una posi¬ 
zione verso destra. Ogni qual volta il numero rag¬ 
giunge il contatore, ciò decreta la sconfitta del 
giocatore. 


La velocità scelta all'inizio determina il tempo a 
disposizione per "cacciare" ciascun numero ca¬ 
suale, cioè il tempo entro il quale bisogna porre il 
contatore uguale al numero e premere il tasto 
"E", prima che il numero si sposti verso destra. Il 
livello scelto all'inizio invece fissa la posizione ini¬ 
ziale del numero casuale: un livello molto alto 
concede pochi errori, un livello basso al contrario 
fa partire il numero da lontano e, nel caso di una 
partenza bruciante da parte del giocatore, per¬ 
mette di ottenere rapide vittorie. 

Sia in caso di vittoria che di sconfitta alla fine del 
gioco compare sul display la scritta "TEMPO=" 
seguita da un numero proporzionale alla durata 
dell'incontro: questo parametro può servire a mi¬ 
surare la propria rapidità a vincere e quindi a 
confrontare l'abilità di due diversi giocatori. 

Un consiglio: se invece di premere ripetuta- 
mente il tasto "+", lo si mantiene premuto, si ottie¬ 
ne un incremento più rapido del contatore, an- 


che se bisogna essere rapidi nel fermarsi in tem- 

po. 

a 

LIST 

RSQ TEHP0=”;T: 

18 VflC :INP "VELOC 

END 

ITfis (1-20)*,D! 

98 8010 48 

Q=2t-D:INP 3 LIV 

188 C=C+l:IF C=Ì8;C 

ELIO: a-?) 3 ,* 

=8 

28 B=H+lìT=8 

118 PRT CSR 14;CmR 

38 PRT CSR 13;*-*: 

ET 

CITO”! 

288 8=8-1!IF 8)8 !H 

49 8=8*1:R=INT (Rfl 

EH 228 

Hi*19)s PRT CSR 

218 HfllT 8! PRT ’• PRT 

8; R; 

”8RfiVQ! HfìI VI 

58 POR H=1 IO D:T= 

HTO TEHPQ=*5T! 

mslF KEY*V? 

END 

SSB 188 

228 R=INT (RRKf*10> 

88 IF KEY= b e*JIF C 

:PRT CSR BìR; 3 

=r;sqto 288 

78 mi H 

89 IF 8=9?WfilT 8:P 

3 >:S0T0 58 


RT :PRT 3 H8I PE 

Figura 1 - Il listato 
BASIC. 
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STRUTTURA DEL PROGRAMMA 


10 

20 

30 

40 

50-70 

80 

90 

100-110 

200 


210 


220 


Input della velocità e del livello. 
Inizializzazione della posizione B del 
numero casuale e della variabile T che 
misura il tempo. 

Costruzione deH’immagine sul display. 
Creazione del numero casuale R e sua 
stampa. 

Ciclo la cui lunghezza dipende dalla ve¬ 
locità D durante il quale è lecito incre¬ 
mentare il contatore oppure premere 
“E”. 

Se la posizione B del numero casuale ha 
raggiunto Testremo destro, il giocatore 
ha perso e viene mostrato per quanto 
tempo ha resistito. 

Altrimenti si procede alla creazione del 
prossimo numero casuale spostato di 
una posizione a destra. 

Routine di incremento e stampa del 
contatore. 

Subroutine che, nel caso sia stato pre¬ 
muto “E” e numero e contatore siano 
uguali, sposta il numero casuale verso 
sinistra. 

Se il numero casuale è stato ricacciato 
all’estrema sinistra, il giocatore ha vin¬ 
to e gli viene mostrato il tempo impiega¬ 
to. 

Altrimenti viene creato e stampato il 
prossimo numero casuale R ed il gioco 
continua. 


Programmi Gestionali logica 

i più curati, affidabili, facili da usare 


/ programmi girano su elaboratori Commodore in qualunque combinazione 
3032/4032/8032 + 3040/4040/8050/8250. Abbiamo impiegato criteri di "inge¬ 
gneria umana" ed ogni possibile sofisticazione software per rendere l'uso sem¬ 
plice e scorrevole. Gestione delle maschere mediante subroutines implementa¬ 
te in ROM: impossibile bloccare un programma o sporcare il video. Conteggi 
su 12 cifre. Segnali acustici di controllo. Hard<opy. Aggiornati semestralmente. 
Manuali d'uso dettagliatissimi. 

I prezzi comprendono un corso d'addestramento a Mantova 

completamente spesato. 

SEMPL contabilità semplificata - Gira su due soli dischi (disco programmi + 
disco ditta). Capacità max 1200 clienti + fornitori. Ventilazione e scorporo, di¬ 
chiarazione IRPEF, registri ed elenchi IVA, ecc. Clienti e fornitori richiamati 
con codice simbolico (Rossi si chiama "Rossi" e non "1234"). L. 1.990.000 

GEMAF contabilità generale - Gira su due soli dischi (disco programmi + 
disco conti). Capacità max 3000 clienti o fornitori + 900 conti 4- 99 mastri. 
Registri ed elenchi IVA, giornale, bilanci, estratti conto ecc. L. 1.990.000 

Opzione MAGAZZINO & FATTURAZIONE per GEMAF Tutta 
la procedura contabilità + magazzino + fatturazione gira su tre soli dischi (di¬ 
sco programmi + disco conti + disco magazzino). Capacità max 10.000 arti¬ 
coli. Giornale di magazzino. UFO. Fatturazione totalmente in linea, con ge¬ 
stione immediata dello scarico e della prima nota. Cedolino agenti. Stampa 
effetti immediata o a posteriori. L. 500.000 

Opzione PRODUZIONE per GEMAF - Distinta base a n livelli fino a 
max 10.000 componenti per prodotto finito. Sviluppo automatico dei carichi 
e scarichi. Lancio di commesse con controllo scorte e costi. L. 500.000 

Tutti i programmi sono coperti dalla speciale garanzia "no-bugs": 
premio di L. 100.000 a chiunque segnali un errore software. 

Concessionari / Installatori autorizzati in tutta Italia 


PARCE parcelle professionali. Memorizza le prestazioni ai clienti, stampa 
fatture e distinte prestazioni. Tariffe orarie, compensi a tabella, rimborsi spe¬ 
se, acconti, ritenute e maggiorazioni. Agganciabile a GEMAF. L. 500.000 

COMPU computi metrici. Consente di gestire un archivio voci, eseguire 
variazioni di prezzi, compilare computi, memorizzarli, modificarli e stamparli 
con vari formati. Ogni voce può contenere 100 righe di descrizione. COM¬ 
PU utilizza le stesse sofisticate tecniche di programmazione del nostro sof¬ 
tware gestionale e consente un uso eccezionalmente scorrevole. L. 500.000 


ROM LOGICA - aggiungono nuove istruzioni al Basic Commodore 

Programmerà Toolkit - aggiunge i comandi AUTO, DELETE, RENUMBER, 
HELP, TRACE, STEP, OFF, DUMP, FIND. La Rom più venduta nel mondo. As¬ 
solutamente indispensabile per chi sviluppa programmi. L. 85.000 

Command-O - per 4032 e 8032 - aggiunge tutti i comandi del Toolkit, più i 
comandi SEND, OUT, KILL, BEEP, PRINT USINC e funzioni di editing (scroll, 
repeat, eat, tasto funzione). La Rom più completa. L. 135.000 

Rom ELPRO - input controllato, stampe formattate, hard copy da video, 
controllo del cursore (istruzioni CURS, CLEAR, ENTER, OUT, DEVICE, LCASE, 
HDCPY). Per professionalizzare i vostri programmi. L. 95.000 

BASIC 4.0 - set di Roms per trasformare il 3032 in 4032. L. 150.000 

SPACEMAKER - permette di montare fino a 4 Roms sullo stesso zoccolo e 
selezionarle con un commutatore. L. 80.000 


BUFFER 8K - migliora fino a 2 volte la velocità di qualunque stampante con 
interfaccia parallela Centronics. L. 299.000 

COGNIVOX - terminale Voice Input/Output per far parlare e ascoltare il 
PET/CBM - completo di hardware e software dimostrativo. L. 349.000 

COMPUCRUISE - computer di bordo per auto - regolazione automatica del¬ 
la velocità - completo di parti meccaniche. L 299.000 


logica gli specialisti Commodore 

dr. ing. Mario Pavesi 

Via Bonomi, (> - 46100 Mantova - Tel. (0376) 350.238 
/Vrx/o/h Commodore e Sirius/vew//fj diretta e per ( orrisf/onden/j 


1984 « Bit - 19 






















Qual è il Personal computer a 16 bit 

più venduto in Europal 





Ormai abituati alla risonanza dei 
grossi nomi, forse non ci viene subito in 
mente. Eppure, il Personal computerà 
16 bit più venduto in Europa è Victor, 
di Harden Italia. 

Saranno le sue incredibili capacità 
grafiche e di elaborazione, o le sue 
eccellenti possibilità di comunicazione 
e dialogo con altri computers, o la sua 
bibhoteca di programmi. 

Saranno l’eccellente Harden-Text perla 
videoscrittura o il versatissimo 
Harden-Azienda per la gestione, 
entrambi interamente in italiano. 

O sarà magari la capillarità del suo 
servizio assistenza e vendita (a tutt’oggi 
sul solo territorio italiano conta ben 
150 dealers). 

Resta il fatto che il Personal 
computerà 16 bit più venduto in 
Europa è ancora Victor. 

Di Harden Italia. 
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HARDEN ITALIA S. p. A. 

Centro Direzionale Milano Fiori 

Strada 7 - Palazzo T 3 

20088 ROZZANO - Tel. (02) 8243741 r.a. 

























Statistica 

ad una dimensione 


Con questo numero inizia una breve serie di articoli aventi come argomento dei programmi 

applicativi di calcolo statistico. 

La serie inizia con un programma che consente la rappresentazione grafica o sintetica (cioè 
attraverso indici statistici), di variabili statistiche ad una dimensione; coprendo, in pratica, la 
parte corrispondente al primo capitolo di un qualsiasi testo universitario di statistica 

(diseguaglianza di Tchebycheff esclusa). 

Si è ritenuto opportuno, a tale proposito, far precedere alla applicazione pratica una breve 
trattazione teorica dell’argomento. Coloro che hanno già cognizioni statistiche di base, 
possono tranquillamente saltare l’articolo su questo numero (a meno che non vogliano 
effettuare un rapido ripasso!); coloro che, invece, sono completamente digiuni al riguardo, 
sono vivamente pregati di leggere queste brevi note, in modo da poter apprezzare appieno le 

potenzialità offerte dal programma. 


di U.O. Barzaghi Parte prima 

I l termine "statistica" risale al XVII secolo. Esso 
fu usato per la prima volta da professori te¬ 
deschi di quelle discipline che oggi vanno sotto il 
nome di scienze politiche, per indicare una ma¬ 
teria che doveva essere studiata dai futuri diri¬ 
genti e che forniva tutte le informazioni riguar¬ 
danti lo Stato. In origine, cioè, la statistica non si 
basava sui dati numerici ma su dati qualitativi. 

In seguito, sono convogliate in essa nozioni fon¬ 
damentali provenienti d» altri campi di indagine 
che ne hanno a poco a poco trasformato la 
struttura. Ad esempio la "Dottrina della Sorte", 
antico nome del calcolo delle probabilità; oppu¬ 
re la "Aritmetica Politica", sorta a Londra sotto 
l'influenza dell'empirismo inglese che, sviluppan¬ 
do il lato numerico della statistica, proponeva un 
metodo classificatorio dei fenomeni naturalistici 
relativi alle popolazioni (nascite, morti, censi¬ 
menti, ecc.); infine hanno contribuito allo svilup¬ 
po della statistica tutte quelle discipline che si 
sono dedicate all'arte del misurare, come la 
Astronomia, la Topografia e la Geodesia. 

Storicamente, la statistica ha cominciato con 
l'essere descrittiva. Il suo primo impiego è princi¬ 
palmente consistito nell'accumulare informazio¬ 
ni, nell'analizzarle e, essenzialmente, nel sintetiz¬ 
zarle. Solo in seguito, grazie all'apporto del calco¬ 
lo delle probabilità, si sono evidenziate delle for¬ 
me generali di legami strutturali che hanno sug¬ 
gerito teorie relative ai fenomeni osservati, poi 
confermate dai fatti. 

Il programma qui presentato si occupa del pri¬ 
mo dei due filoni che hanno caratterizzato lo 
sviluppo storico della materia; vale a dire la "Stati¬ 
stica descrittiva", lasciando lo studio dei modelli 
probabilistici a sviluppi successivi di una possibile 
serie di programmi. 


La variabile statistica ad una dimensione 

Data una popolazione composta da N indivi¬ 
dui, la statistica insegna come classificarla in re¬ 


lazione ad un unico suo aspetto, quello che inte¬ 
ressa l'indagine, e come descriverla o rappresen¬ 
tarla sinteticamente attraverso una serie di indici 
significativi. 

E importante innanzitutto, delimitare con preci¬ 
sione la popolazione che si vuole esaminare. Ciò 
si ottiene con la definizione della caratteristica 
comune a tutti i componenti la popolazione in 
maniera da non consentire ambiguità o indeter¬ 
minatezze. Una volta definita la popolazione si 
può esaminarne la struttura, sotto il punto di vista 
di altre caratteristiche, le quali non si presentano 
in maniera uniforme per tutti gli individui. Si chia¬ 
merà attributo di una popolazione una particola¬ 
re caratteristica degli individui della popolazione 
stessa che si manifesta in essi con forme differenti. 

Studiare una popolazione dal punto di vista di 
un suo attributo significa classificare gli individui 
che compongono la popolazione secondo le va¬ 
rie forme dell'attributo. Per poter far ciò occorre 
che l'attributo X in relazione al quale si vuole 
effettuare la organizzazione della popolazione, 
possegga i seguenti requisiti: 

a) Che l'attributo possa assumere forme distinte 
Xi tra loro incompatibili; ogni individuo deve poter 
possedere solo una forma dell'attributo. 

b) Che ogni forma Xi rappresenti un concetto di 
classe; deve essere possibile cioè, almeno in linea 
di principio, che parecchi individui posseggano 
la stessa forma dell'attributo. 

c) Che in ogni individuo della popolazione sia 
presente una delle forme Xi; l'attributo deve esse¬ 
re presente, pur sotto diverse forme, in ciascun 
individuo della popolazione. 

d) Che esistano almeno due individui nella po¬ 
polazione in possesso di forme diverse dell'attri¬ 
buto, e cioè che la popolazione stessa non si 
presenti totalmente omogenea. 

La successione delle diverse forme Xi non sempre 
può rappresentarsi con dei numeri in maniera 
immediata, inoltre, l'argomento X può assumere 
o un numero finito di forme, e in tal caso è detto 
discreto; oppure può presentarsi con un numero 
infinito di forme, tutte però contenute con conti¬ 
nuità in un intervallo limitato, ed allora è detto di 
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tipo continuo. 

Il programma in questione prende in conside¬ 
razione solo il caso di argomenti discreti, per cui la 
successione dei valori argomentali di X può rap¬ 
presentarsi con una successione di Xi (i = 1,2.n). 

Per mezzo dell'operazione di classificazione 
secondo l'argomento X degli N individui che 
formano nel loro insieme la popolazione C, si rag¬ 
gruppano assieme quegli individui che posseg¬ 
gono una uguale forma dell'attributo. Quindi si 
coniano gli individui in ciascun gruppo ottenen¬ 
do i valori FI, F2.Fn della frequenza assoluta. 

Essi rappresentano cioè il numero degli individui 
compresi nelle classi definite dai valori argomen¬ 
tali corrispondenti XI, X2.Xn. 

Le stesse classi possono essere rappresentate 
diversamente sostituendo alla successione delle 
frequenze assolute, la successione delle frequen¬ 
ze relative Fi/N. La X, costruita come si è detto e 
rappresentata in una delle due forme, prende il 
nome di "variabile statistica ad una dimensione''. 

In alcuni casi la classificazione di una popola¬ 
zione rispetto ad un determinato valore argo¬ 
mentale può essere fatta usando non più le sin¬ 
gole forme dell'attributo in questione, ma delle 
"classi" di opportuna ampiezza. Ad esempio, si 
può determinare il numero di individui il cui valore 
argomentale è compreso tra Xi e Xj, estremi inclu¬ 
si, e associare alla classe Xi — Xj tale numero, che 
verrà quindi chiamato frequenza assoluta della 
classe. Ogni classe è inoltre contraddistinta da un 
valore medio o punto medio della classe dato da 
(XH-Xj)/2. 

Rappresentazione grafica di una variabile 
statistica semplice 

Della X si possono dare alcuni tipi di rappresen¬ 
tazioni grafiche. Su di una semiretta, si riportano, 
in una scala opportuna, i valori numerici dell'ar- 
gómento X, dopo averli disposti in ordine cre¬ 
scente. 

In corrispondenza a ciascun valore Xi si riporta, 
in direzione normale alla semiretta, un segmento 
di lunghezza proporzionale alla frequenza asso¬ 
luta o relativa di quel valore argomentale. La 
figura risultante si chiama "istogramma". 

Può capitare che l'ampiezza delle classi coin¬ 
cida con l'unità di misura delle x e che venga 
mantenuta costante. In generale, però, questo 
non accade ed anzi è opportuno modificare 
l'ampiezza delle classi in quella zona in cui le 
frequenze diminuiscono sensibilmente. Nella co¬ 
struzione degli istogrammi ha importanza note¬ 
vole la scelta dell'ampiezza dell'intervallo di cia¬ 
scuna classe. Da questa scelta dipende a volte in 
modo assai macroscopico la formazione dell'i- 
stogramma. L'ampiezza deH'intervallo dovrà es¬ 
sere scelta, sia pure con una certa arbitrarietà, 
tenendo conto di questi elementi fondamentali: 

• Dell'estensione del campo di variabilità dell'ar¬ 
gomento. 

• Del numero complessivo di individui compo¬ 
nenti la popolazione. 

• Del grado di attendibilità delle rilevazioni del¬ 
l'argomento stesso. 

Nel caso in cui il valore dell'argomento proprio di 
ciascun individuo, ad esempio, sia ottenuto me¬ 
diante misure, sarà inutile ripartire l'istogramma in 
classi il cui intervallo sia inferiore alla sensibilità 


della stessa misura. La rappresentazione median¬ 
te istogramma con intervallo di ampiezza unifor¬ 
me della variabile statistica già ordinata in classi, 
cambia sensibilmente la sua forma corrispon¬ 
dente al variare dell'ampiezza dell'intervallo. 

Il problema della scelta deH'intervallo in cui 
suddividere la scala dei valori argomentali per la 
costruzione deN'istogramma perde la sua impor¬ 
tanza qualora si passi dalla rappresentazione 
della variabile statistica a quella della variabile 
statistica cumulata. 

Si dice "funzione cumulativa di frequenza" o 
"funzione di distribuzione" una doppia successio¬ 
ne in corrispondenza biunivoca in cui in corri¬ 
spondenza di ogni valore Xi dell'argomento, vie¬ 
ne posta la somma delle frequenze di tutti gli 
elementi che hanno valori inferiori od uguali a Xi. 

Moda, mediana, quantlli 

Nelle serie dei valori argomentali ve ne sono 
alcuni di particolare importanza per la descrizio¬ 
ne della variabile statistica a cui si riferiscono. Esse 
sono: 

a) La "moda", ossia quel valore argomentale a 
cui corrisponde la massima frequenza, rispetto ai 
valori argomentali che lo precedono e lo seguo¬ 
no: pertanto, il valore modale non può mai occu¬ 
pare il primo o l'ultimo posto nella successione 
dei valori argomentali Xi. Se il valore di massima 
frequenza coincide con il primo o l'ultimo termi¬ 
ne, la distribuzione si dice "zeromodale". Una dis¬ 
tribuzione può inoltre essere "unimodale''o"pluri- 
modale" a seconda che vi sia una sola frequenza 
che supera tutte le altre, oppure che vi siano nella 
serie delle frequenze altri massimi relativi. 

b) La "mediana", ossia quel valore argomentale 
la cui frequenza Fm sia tale che: 

1 ) la somma delle frequenze che precedono Fm 
è minore della metà della frequenza totale; 

2) la somma di Fm e di quelle frequenze che la 
precedono è uguale o maggiore della metà del¬ 
la frequenza totale. 

Nell'istogramma della variabile suddetta, la me¬ 
diana è l'ascissa del punto la cui ordinata divide 
in due parti uguali l'area coperta dall'istogram- 
ma. 

c) I "quantili", ossia quei valori argomentali per 
cui sono soddisfatte condizioni analoghe a quel¬ 
le poste per la mediana, sostituendo soltanto "un 
quarto" o "tre quarti" al posto di "metà" nella 
condizione b. 1 ) suddetta. 

Rappresentazione sintetica di una variabile 
statistica a una dimensione 

La rappresentazione grafica della variabile sta¬ 
tistica nelle forme sopra viste, pur essendo spesso 
assai espressiva da un punto di vista qualitativo, 
non permette però di ricavare molte indicazioni 
quantitative sulla distribuzione. Per ottenere una 
descrizione matematica più accurata sono stati 
introdotti alcuni indici che, ricavati usando tutti i 
dati che compongono la variabile, ne precisano 
le caratteristiche essenziali. Tali indici descrittivi 
vengono nel loro complesso chiamati "statisti¬ 
che". 

È necessario introdurre alcune definizioni: si di¬ 
ce momento k-esimo rispetto al polo theta, di 
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una distribuzione di frequenza o variabile statisti¬ 
ca a una dimensione, la sommatoria del prodot¬ 
to della differenza dei valori degli argomenti ri¬ 
spetto al polo theta, elevata ad esponente k, 
moltiplicata per la frequenza relativa associata 
al valore argomentale suddetto. La serie dei mo¬ 
menti di una variabile statistica, rispetto ad un 
particolare valore del polo, per esempio lo zero, 
basta a rappresentare tutte le caratteristiche del¬ 
la sua distribuzione. 

I momenti che nella pratica sono più significativi 
per rappresentare la funzione sono i tre seguenti: 

a) Il momento di primo ordine (k=1 ) della varia¬ 
bile rispetto al polo theta = 0, che prende il nome 
di media della variabile statistica. 

b) Il momento di secondo ordine (k=2) della 
variabile rispetto al polo theta = 0, che prende il 
nome di "valore quadratico medio". 

c) Il momento di secondo ordine (k=2) della 
variabile rispetto alla media, che prende il nome 
di "varianza" o "momento centrale del secondo 
ordine". La radice quadrata della varianza, pren¬ 
de il nome di "scarto quadratico medio" o "de¬ 
viazione standard". 

Vengono inoltre introdotti due indici che consen¬ 
tono di misurare il grado di asimmetria di una 
distribuzione: 

a) Indice di skewness - dato dalla formula 
(Media-Moda)/(scarto quadratico medio). 

b) Coefficiente gamma - dato dal momento di 
terzo ordine rispetto alla media, diviso il cubo 
dello scarto quadratico medio. 

II coefficiente gamma risulta nullo nel caso in cui 
la distribuzione sia simmetrica, positivo se il dia¬ 
gramma di frequenza presenta una "coda" verso 
destra e negativo nel caso contrario. L'uso degli 
indici di asimmetria va fatto tuttavia sempre con 
discernimento perché possono verificarsi casi in 
cui, ad esempio, si annulla il momento del terzo 
ordine, e quindi il "coefficiente gamma", senza 
che la variabile statistica sia simmetrica. 


Alcuni significati collaterali degli Indici 
statistici 

Ai due momenti chiamati media e varianza è 
associato un importantissimo significato descritti¬ 
vo della variabile statistica X. La media è un indi¬ 
ce di posizione, cioè determina la posizione della 
popolazione cui la variabile statistica si riferisce, 
sulla scala dei valori argomentali. Per compren¬ 
dere il significato di media può essere utile una 
analogia meccanica. Se i valori della frequenza 
si interpretano come i valori di altrettante masse 
disposte lungo un asse ed aventi come coordina¬ 
ta il valore dell'argomento corrispondente, la me¬ 
dia, coincide con il baricentro delle masse. 

La varianza è un indice di variabilità, cioè essa 
misura la dispersione dei valori dell'argomento 
posseduti dagli individui, intorno al valore medio. 
Il concetto di varianza è fondamentale in statisti¬ 
ca; la statistica, anzi, rappresenta proprio un me¬ 
todo per studiare la variabilità di una caratteristi¬ 
ca in una popolazione di individui. Storicamente 
si è giunti alla scelta di questo indice a causa 
della necessità di misurare la variabilità esistente 
fra i dati, mettendo a confronto le distanze fra 
ciascun individuo della popolazione ed un termi¬ 
ne fisso. 


L'analogia meccanica che meglio si presta per 
aiutare a comprendere il significato di varianza è 
quella del momento di inerzia, a patto di interpre¬ 
tare le frequenze relative come masse e le diffe¬ 
renze tra i valori degli argomenti e la media, co¬ 
me le distanze delle masse dal centro di rotazio¬ 
ne, si può interpretare la varianza come rotore, 
cioè quella distanza dall'asse di rotazione in cui si 
potrebbe concentrare tutta la massa per conser¬ 
vare invariato il momento di inerzia. 

Dalla definizione meccanica di momento di iner¬ 
zia, risulta che, a parità di massa, esso è tanto 
maggiore quanto maggiori sono le distanze dal¬ 
l'asse. 

Per ogni riferimento vedi: "Fondamenti di Stati¬ 
stica", della prof. Giovanna Togliatti, edito dalla 
Hoepli. 

Epilogo 

Queste note sono più che sufficienti alla com¬ 
prensione dell'argomento trattato. Sul prossimo 
numero, che conterrà anche il listato del pro¬ 
gramma, debitamente commentato, vedremo il 
funzionamento del programma stesso, le sue op¬ 
zioni, i vari formati in cui i dati possono essere 
introdotti e le rispettive limitazioni. 

(Continua) 
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Ut il 75: dalla parte 
del programmatore 


Chiunque legga questa rivista è, chi più chi meno , un programmatore. Ecco 
dunque un articolo , preparato soprattutto per YHP-75C e la stampante HP 
82905B, fatto di piccole cose , che forse saranno già note a qualcuno , ma che 

potranno tornare utili ai più f quando si presenti il caso. 



di V. Anseimo 


I l programma Ricupero permette di stampare il 
listato di un programma anche quando, per 
varie operazioni di riduzione al minimo, questo 
non sarebbe più stampabile. 

Tanto per cominciare, esploriamo le possibilità 
di controllare da programma il cursore. Proviamo 
ad immettere ed eseguire il programma di figura 
1 . 

Per poter ottenere facilmente le parole sottoline¬ 
ate che compaiono nel programma, basterà un 
programmino di poche righe, come riportato in 
figura 2. 

Dopo aver eseguito il suddetto programmino la 
parola sottolineata si otterrà premendo CTL 1. 

Ma veniamo al primo programma. Eseguendo¬ 
lo si vedrà la parola PLUS avvicinarsi e fondersi con 
SOFTWARE fino a creare SOFTPLUS, quindi PLUS 
lampeggerà su SOFTWARE fermandosi poi con 
SOFTPLUS. La stringa D$ contiene 11 spazi vuoti e 
nella riga 20, tra A$ e B$ ci sono 5 spazi. Il lettore 
potrà anche provare a far posizionare, per eserci¬ 
zio, le due parole agli estremi del visore e farle 
riunire al centro, con un'opportuna modifica di 
programma. 

Se fate leggere un archivio di testo visualizzan¬ 
dolo su uno schermo con l'interfaccia video HP 
82163A collegata, noterete che c'è una differen¬ 
za in velocità di visualizzazione a seconda che 
abbiate usato DISP e assegnato l'interfaccia co¬ 
me dispositivo DISPLAY IS (con DISPLAY IS': TV'), 
oppure abbiate usato PRINT e assegnato l'inter¬ 
faccia come dispositivo PRINTER IS (con PRINTER 
IS':TV'). Vedrete che un testo mandato all'inter¬ 
faccia con PRINT sarà visualizzato molto più rapi¬ 
damente che non con DISP, anche se prima ave¬ 
te eseguito un DELAY 0. Provate a far visualizzare 
un'intera pagina di testo e vedrete la differenza. 

Passando alla stampante, sappiamo che, 
quando si stampa una riga composta di tante 
parti legate dal punto e virgola (PRINT A$; @ PRINT 
B$; ecc.), la stampante HP 82905B stampa la sua 
riga solo quando nel buffer di stampa è stata 
accumulata tutta una riga (quando arriva l'ot¬ 
ta ntunesimo carattere in modo normale), o 
quando si manda un PRINT senza il punto e virgo¬ 
la finale. Anche il visore dell'HP-75C ci sembra 
comportarsi nello stesso modo, perchè siamo abi¬ 
tuati a vedere comparire la stringa sempre di 


colpo, ma non è vero. Sul visore le varie parti della 
stringa da visualizzare (con DISP A$; @ DISP B$; 
ecc.) vengono visualizzate man mano che sono 
trasmesse. Basterà un programmino come quello 
in figura 3 per dimostrarlo. 

Sul visore i caratteri vengono presentati l'uno die¬ 
tro l'altro con un breve intervallo, mentre la stam¬ 
pante stamperà la riga solo alla fine, quando 
incontra il PRINT finale. Sulla visualizzazione im¬ 
mediata nel visore delle parti seguite dal punto e 
virgola non ha alcuna influenza il DELAY. Si provi a 
dare un DEAY 5 prima dell'esecuzione, e poi un 
DEAY 0: sarà la stessa cosa. 

Ad accumulare i dati da stampare e a presen¬ 
tarli tutti assieme è il buffer della stampante. Ba¬ 
sterà infatti avviare il programma di figura 4 per 
accertarcene. 

Sul visore, che ora sostituisce la stampante, i ca¬ 
ratteri appariranno uno dopo l'altro, intervallati 
da un'attesa di un decimo di secondo. 

La stampante stamperà la riga solo quando que¬ 
sta è completa, anche se sarà stata assegnata 
come dispositivo DISPAY IS (con DISPAY IS' : P') e 
indirizzata con DISP, sempre per lo stesso motivo 
(buffer di accumulo nella stampante). 

Verrà stampata solo la riga completa anche 
quando avremo mandato dei PRINT senza il pun¬ 
to e virgola dopo aver predisposto la stampante 
per la stampa continua (senza ritorno carrello/in¬ 
terlinea) con ENDUNE". Provare con il program¬ 
ma di figura 5 che dimostra come in tal caso la 
stampa si ottiene solo quando si manda un PRINT 
dopo aver riportato le cose alla normalità con 
ENDUNE da solo, o quando il buffer della stam¬ 
pante supera la capacità massima della riga in 
accordo con il tipo di carattere adottato (norma¬ 
le, compresso, ecc.). Un'istruzione PRINT quando 
ci si trova in condizione di ENDUNE" equivale ad 
un'istruzione PRINT seguita da punto e virgola in 
condizione ENDUNE CHR$(13)&CHR$(10). In en¬ 
trambi i casi la sequenza di ritorno carrello/interli¬ 
nea non viene mandata. 

Quando la stampante è nel modo stampa 
continua non ha alcuna influenza il comando 
PWIDTH. Provare con PWIDTH 10 e poi con PWIDTH 
INF: il risultato è lo stesso. 

Si riuscirà a far stampare un carattere alla volta 
sulla stessa riga con un certo intervallo fra l'uno e 
l'altro solo facendo passare la stampante in mo¬ 
do grafico dopo la stampa di ogni carattere. 
Provare con il programma in figura 6. 
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10 A**'SOFTWARE' li' B*='PLUS' © C$=' SOFTPLUS' li* D*=' 
20 DELAV 0 i? DISP D*&A*«<' ' &B* li* WAIT .5 

30 FOR J=25 TO 15 STEP -1 

40 DISP D*&A*;CHR*<27 );*%* ;CHR*(J);CHR*<0);B*;' ' 

50 NEXT J li* WAIT .5 

60 FOR J=1 TO 5 6* DISP D*&AS li* WAIT .1 
70 DISP D*S<C* li* WAIT .1 H* NEXT J 


Figura 1 - Il programma 
per il controllo del cur¬ 


sore. 


10 

20 

DIM B$ C50] 

INPUT 'parola da sottol■(CTL 1): 

'; Ali i? b$= m " ( 

i* FOR 1 = 1 TO LEN ( A$ ) 

30 

B*=B$&' < '&CHRS(NUM(A$C1,13)+128) 

li* NEXT I 


40 

DEF KEY 'l',B*5 




Figura 2 - Un program¬ 
mino di sottolineatura. 


10 

FOR 1=65 TO 9© 



20 

DISP CHR$<I) ; li* 

PRINT CHR$(I); i 

i* WAIT . 1 

30 

NEXT I li* PRINT 

li* DISF* 



Figura 3 - Una dimostra¬ 
zione che le parti di 
stringa visualizzate sul 
visore vengono trasmes¬ 
se singolarmente. 


10 OFF io 

26 FOR 1=65 TO 90 

30 PRINT CHR*(I); ii* WAIT ,1 

40 NEXT I ti* PRINT 

50 RESTORE IO 


Figura 4-11 programma 
che riguarda il buffer 
della stampante. 


10 A=0 li* DELAY 2 H* ENDLINE " H* FOR 1=40 TO 79 

20 PRINT CHR*(I) li* NEXT I li' DISP '40 caratteri nel buffer’ li* GOSUB 110 
30 ENDLINE '' li* FOR 1=4© TO 119 

4© PRINT CHR*<I) li* NEXT I li* DISP '80 caratt. nel buffer: ' ; 

50 IF A THEN DISP 'compresso 7 ELSE DISP 'normale' 

60 DISP 'aggiungo un altro carattere' li* PRINT ' ' 

70 IF A THEN 90 

8© PRINT CHR$ (27) &' &k2S' li* A=1 li* GOTO 30 
90 DISP 'fine: buffer non scaricato' li* GOSUB 110 
100 PRINT CHR$ (27) &' &k0S' li* DISP «i* END 

110 DISP 'scarico con ENDLINE li* PRINT' li* ENDLINE li* PRINT li* RETURN 


Figura 5 - La stampa si 
ottiene solamente quan¬ 
do sono soddisfatte le 
condizioni dette nell ar¬ 
ticolo. 


10 FOR 1=65 TO 90 

20 PRINT CHR$ ( I ) &CHR$ (27) &' *b0G' ; li* WAIT 1 
30 NEXT I li* PRINT 


Figura 6 - Passaggio in 
modo grafico dopò ogni 
carattere. 
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Figura 7 - Differenti tipi 
di stampa si ottengono 
agendo sulle spaziature. 


Figura 8-11 numero del 
carattere con sottolinea¬ 
tura spessa. 




10 FRI NT CHR$ (27 ) 7 ?<1 72D ? S<CHR$ (27 ) & 9 &k 1S ? 
20 FOR A=1 TO 2 
30 FOR 1=65 TO 90 
40 PRINT CHR* < I ) ; 

50 NEXT I @ PRINT 
60 NEXT A 

70 PRINT CHR$ (27) &16D ? &CHR4» (27) fcr’ kkOS’ 







o 

•n* 

!«:* 

IH: 

i!r 

imi 

luti 

imi 

trat 


La sequenza CHR$(27)&':*bOG' fa passare la 
stampante nel modo grafico dopo la stampa 
della lettera e la fa ritornare immediatamente nel 
modo normale senza aver stampato alcun di¬ 
segno in modo grafico (o meglio dopo aver 
stampato un disegno nullo). Avrà però fatto scari¬ 
care il buffer di stampa ogni volta e la testina avrà 
così stampato una lettera alla volta. 

Un tipo di stampa non previsto normalmente 
dalla stampante si può ottenere agendo sulla 
spaziatura fra le righe. Spaziando una volta di un 
solo punto e facendo ribattere la riga si ottiene 
una specie di grassetto, più apprezzabile con i 
caratteri espansi o compressi-espansi e le lettere 
maiuscole (vedi figura 7). 

Uno degli scopi del programmare è quello di 
ridurre la lunghezza del programma dopo averlo 
scritto. Il fine è quello di "lasciare ogni byte possi¬ 
bile di memoria all'utente". Programmi brevi, ve¬ 
loci e potenti, quindi. Vi sono vari modi per rag¬ 
giungere lo scopo. Innanzitutto sarà bene elimi¬ 
nare qualunque giro vizioso e snellire al massimo 
il programma, togliendo tutto ciò che è inutile. 

Dopo aver operato in questo modo più radica¬ 
le ottenendo dei risparmi a volte inaspettati (co¬ 
me quando, ad esempio, si riesce a sostituire una 
lunga sequenza di IF.... THEN ... con una semplice 
formula matematica), si potrà passare ad un la¬ 
voro di riduzione più in dettaglio, lavorando su 
fattori meno importanti, che però riusciranno a far 
risparmiare talvolta un numero inaspettato di 
byte. 

Per risparmiare memoria e rendere anche il 
programma un poco più veloce è bene collega¬ 
re, tutte le volte che è possibile, più istruzioni con il 
segno 

Naturalmente non si potrà collegare un'istruzione 
con IF ... THEN ... alla successiva, o un'istruzione 
GOTO... con quella che la segue. Per ogni istruzio¬ 
ne che si riesce a mettere con @ sulla stessa riga 
(in modo legale) si risparmiano 3 byte di memo¬ 
ria. 

Dimensionare le variabili all'inizio di un pro¬ 


gramma è un altro modo di risparmiare qualche 
byte. Ma non sarà conveniente dimensionare 
una variabile la cui lunghezza sia prossima a 
quella presunta dal computer, perchè anche il 
dimensionamento occupa memoria. Non con¬ 
verrà dimensionare con DIM A$(30) una variabile 
A$ che dovrà contenere solo due byte in meno 
del dimensionamento standard dato dal com¬ 
puter (32 byte). L'istruzione per il dimensiona¬ 
mento occuperà infatti 13 byte, facendoci per¬ 
dere 11 byte. 

Un archivio di testo usa meno memoria di un 
archivio di dati. Quando non si devono memoriz¬ 
zare variabili numeriche, si risparmiano 3 byte per 
riga di testo se si usa un archivio di testo (TEXT) 
anziché un archivio di dati (BASIC). 

Quando in un programma BASIC dobbiamo im¬ 
mettere un carattere, si risparmierà memoria se il 
carattere si immette nella sua forma più breve 
(ad esempio, DISP 'A' anziché DISP CHR$(65)). Si 
risparmieranno due soli byte per il primo caratte¬ 
re, ma cinque per ogni carattere successivo della 
stessa stringa. Per immettere certi caratteri non 
direttamente accessibili da tastiera, come i ca¬ 
ratteri con numero ASCII dal 144 al 159, dal 183 al 
191, dal 207 al 223 e dal 240 al 255, sarà necessa¬ 
rio prima ridefinire un tasto facendogli rappresen¬ 
tare quel carattere. Si ricordi che, siccome si trat¬ 
ta di caratteri sottolineati, la ridefinizione dovrà 
avere sempre la forma: 

DEF KEY '...7 ('&CHR$(...); 

con il carattere da rappresentare preceduto dal 
segno ( ottenuto premendo due volte SHIFT l/R. 
Tra parentesi, si sarà notato che abbiamo messo 
nella lista anche i caratteri coi numeri 183(7), 184 
(8) e 185 (9), non ottenibili direttamente da ta¬ 
stiera, contrariamente a quanto risulterebbe In¬ 
vece nel prospetto di pagina 290 del manuale 
operativo dell'HP-75C. 

Una riduzione di questo tipo è utile e sempre 
necessaria su un programma finale, cioè nella 
versione che deve essere effettivamente usata. 
Sorgono però dei problemi. Quando si riduce il 
programma in tal modo, la sostituzione di certi 
caratteri inizialmente nella forma CHR$ (...) con 
la loro forma più breve può rendere poi il pro¬ 
gramma non più stampabile con la stampante 
HP 82905B, o può addirittura rendere non più vi¬ 
sualizzabile sul visore (e sul video, se collegato) 
un'intera riga di istruzioni. 

Riducendo, per esempio il programma seguente 
con la sostituzione della forma CHR$(27) con la 
forma più breve (ESC) ottenibile con CTL BACK, 
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non si riuscirà più né ad osservare, né a far stam¬ 
pare il listato: 

10‘ POR 1=1 TO 10@DISP 'l=';l@WAIT 1@DISP 
CHR$(27)& 'E'@NEXT I 

Dopo la riduzione, che ci avrà fatto guadagna¬ 
re 5 byte, tutto quello che vedremo e che riuscire¬ 
mo a far stampare della riga 10 del programma 
sarà: 


'@ NEXT I 

perchè tutto il resto sarà stato annullato dal co¬ 
mando di cancellazione dello schermo, che agi¬ 
sce sul visore, suirinterfaccia video e sulla stam¬ 
pante. In casi estremi di una riga può scomparire 
praticamente tutto. Così con la riduzione di: 

10 DATA CHR$( 8)&CHR$( 10)&CHR$( 13) 

avremo, è vero, guadagnato ben 22 byte, ma la 
riga non verrà più visualizzata. Una riduzione del 
genere non è neppure facile. Ammesso che il 
programma da ridurre si chiami PROVA per otte¬ 
nere più agevolmente la suddetta riduzione do¬ 
vremo ricorrere ad un altro programma, come ad 
esempio: 

10 ASSIGN#1 TO ‘PROVA 

20 PRINT#1, 10: CHR$(8)&CHR$(10)&CHR$(13) 

Se proveremo ora a visualizzare l'istruzione 10 di 
PROVA, non ne otterremo nient'altro che un apo¬ 
strofo (ma potremo notare che il cursore si può 
spostare a destra di 11 spazi). I tre caratteri sono 
stati però tutti e tre memorizzati, come potremo 
facilmente provare facendoli leggere e facendo¬ 
ne visualizzare il numero ASCII. 

In altri casi, come quando la sostituzione dà 
luogo a caratteri sottolineati, la riga sarà ancora 
visualizzata sul visore deH'HP-75C (e sul video se 
collegato), ma il carattere sottolineato sul visore 
(e in negativo sullo schermo) non verrà stampa¬ 
to, oppure verrà stampato un carattere diverso 
(non c'è nessun accordo tra quello che compare 
sul visore del computer e i caratteri del set alter¬ 
nativo della stampante HP 82905B). 

Di solito per ovviare a questo inconveniente si 
mantengono di uno stesso programma due co¬ 
pie distinte, una con tutti i commenti e tutti i 
comandi in chiaro (nella forma stampabile, con 
CHR$(...)) e l'altra ridotta al massimo. Può però 
capitare, per la fretta, per le molte revisioni suc¬ 
cessive di un programma, per una momentanea 
mancanza di supporti di memorizzazione di mas¬ 
sa (schedine magnetiche, nastri, dischi) di non 
poter essere in grado di memorizzare a parte la 
versione completa più aggiornata. Ci troviamo 
così spesso con un programma che, a distanza di 
tempo, resta totalmente illeggibile in certe parti, 
e non stampabile in modo integrale. 

Modificando i programmi MATRICI e STAMPA e 
integrando l'archivio di dati EXTRA presentati la 
volta scorsa, potremo ottenere il modo di far 
stampare dall'HP 82905B anche un programma 
non più normalmente leggibile. Vediamo come 
ciò sia possibile. 

Nell'archivio EXTRA presentato la volta scorsa 
mancavano le matrici per i caratteri con i numeri 
ASCII 8, 10, 13 e 27, perchè questi caratteri non 


vengono rappresentati sul visore dell'HP-75C. Per 
far stampare in forma leggibile un programma 
BASIC, in cui tutti i 256 caratteri possono essere 
presenti, sarà però necessario aggiungere a 
quell'archivio anche le quattro matrici mancanti. 
La prima modifica che si dovrà effettuare riguar¬ 
da il programma MATRICI. È una modifica neces¬ 
saria per poter far accettare anche quei 4 carat¬ 
teri che sono piuttosto difficili da immettere. Mo¬ 
dificando la riga 30 di MATRICI nel modo presen¬ 
tato qui sotto, si potranno immettere i caratteri 
con il loro numero ASCII, anziché con la loro forma 
normale: 


30 INPUT ‘num. car. corrispondente:';Z@B$= 
CHR$(Z) 

La forma dei quattro caratteri potrà essere scel¬ 
ta a piacere, purché rispecchi la realtà del carat¬ 
tere. Qui proponiamo le forme di figura 8 che 
rappresentano il numero del carattere con una 
spessa sottolineatura. 

Quando ad EXTRA avremo aggiunto anche que¬ 
ste 4 matrici sarà bene cambiargli il nome chia¬ 
mandolo EXTRA2 per non confonderlo con l'origi¬ 
nale da usare con il programma STAMPA La mo¬ 
difica da apportare a MATRICI era temporanea e, 
dopo l'uso, potremo cancellarlo dalla memoria. 

Le modifiche da apportare a STAMPA invece 
sono più sostanziali. Il programma dovrà anche 
prendere un altro nome (RICUPERO) perchè servi¬ 
rà ad uno scopo ben preciso, e non semplice- 
mente a far stampare un archivio di testo così 
com'è. Per semplificare, si è riportata la nuova 
versione con tutte le correzioni e con la rinumera¬ 
zione effettuata. I numeri di riga citati appresso si 
riferiscono al programma RICUPERO e non a 
STAMPA. Con l'aggiunta di D$ =' ' nella riga 

50, l'aggiunta della riga 60 e dell'ultima parte 
della riga 150 (IF....GOTO 70) si è provveduto a far 
stampare rientrate le righe che superavano la 
lunghezza di stampa prevista dalla stampante in 
modo normale (80 caratteri). Il numero di riga 
dell'istruzione risulta così sempre in fuori, sulla sini¬ 
stra, aumentando la leggibilità. Nelle righe 30 e 
40 è stata eliminata la distinzione BASIC/TEXT per 
gli archivi richiamati, in quanto sia l'archivio da 
stampare, che l'archivio EXTRA2, sono entrambi 
BASIC. Si è anche voluto risparmiare qualche byte 
modificando le istruzioni 80,90 e 100, abbrevian¬ 
do il messaggio iniziale, e compattando un pòdi 
più il tutto. 

La trasformazione del programma BASIC in un 
archivio di testo si è resa necessaria perchè altri¬ 
menti non sarebbe stato possibile leggerlo e 
stamparlo come testo (avremmo dovuto ricorrere 
a PLIST). 

L'istruzione PWIDTH INF della riga 40, già presente 
nel precedente programma STAMPA serve a farsi 
che la stampante possa stampare in modo grafi¬ 
co superando le eventuali limitazioni di una pre¬ 
cedente definizione FWIDTH. L'istruzione PWIDTH 
controlla infatti il numero di byte inviati alla stam¬ 
pante, e non il numero di caratteri inviati. Ogni 
carattere speciale stampato in modo grafico 
equivale a undici byte inviati alla stampante (5 
byte di comandi e 6 di testo), anche se quando è 
stampato sulla carta è largo esattamente come 
un carattere normale, che vale un byte soltanto. 
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Parola di elaboratore 
(Oulìpoit & Patafisica) 


Pubblichiamo su R.P. i principali programmi, preceduti da quello principale di pilotaggio, relativi al 
package poetico-informatico Oulipoit di cui già si è parlato su Bit (n. 43/sett. 83: “Oulipoit, la 
macchina per poetare’). Se ne fanno carico quattro degli autori, i più giovani per l’esattezza, studenti 
dell’appena iniziato terzo anno del corso di laurea in Scienza dell’Informazione della Statale di Milano, 
limitandosi a note essenziali sui diversi listati. Ad eccezione del primo, che inevitabilmente fa riferimento 
a peculiarità del sistema operativo dell’elaboratore M20 Olivetti, che comunque vengono in parte 
ricordate, altri sono quasi interamente redatti in BASIC Microsoft, quasi uno standard de-facto che 
perciò ne consentirà il riciclaggio, a quanti vorranno divertirsi con simili ludi letterario-casuali, nelle 

macchine più varie, portatili incluse. 

Per non appesantire la presentazione, dividiamo il lavoro in due puntate. Nel frattempo, chi lo desidera, 

cominci a digitare ... 



di P. Badò, P. Brotzu, 
P. Ferrara, O. Foglia 

Parie prima 


programmi che costituiscono ri package 
Oulipoit sono stati a disposizione dei visitatori 
della mostra "Jany e la Patafisica" per circa tre 
mesi, sei giorni alla settimana, sette ore al giorno 
su tre differenti M20. Quando la mostra ha chiuso i 
battenti, il numero totale delle selezioni operate 
su Oulipoit e automaticamente registrate su un 
opportuno file di statistica, ammontava a più di 
12 . 000 . 

Ora, anche se questo numero è andato al di là 
delle aspettative, fin dall'inizio della progettazio¬ 
ne, era stato curato in modo particolare l'inter¬ 
faccia utente: ogni visitatore, anche chi non 
avesse mai visto una macchina per scrivere, do¬ 
veva essere in grado di portarsi a casa un tabula¬ 
to con i saluti di Oulipoit. 

Inoltre il tutto avrebbe dovuto essere accurata¬ 
mente protetto contro i tentativi, involontari o me¬ 
no, di "aprirlo per vedere come è fatto". 

Tali problemi sono notoriamente molto difficili e 
formano oggetto di attenti studi da parte dei 
maggiori esperti del settore, ma senza falsa mo¬ 
destia possiamo affermare che Oulipoit, pertutto 
il tempo della sua avventura patafisica, ha resisti¬ 
to abbastanza stoicamente ad angherie di ogni 
genere capitolando solo di fronte a sabotatori di 
professione. 

Il programma PILOTA costituisce l'ossatura di Ouli¬ 
poit, e i suoi compiti sono di due diverse nature: 
estetici e funzionali. Innanzitutto deve presentare 
l'insieme in modo curioso, così da attrarre l'atten¬ 
zione di un pubblico alle volte piuttosto diffidente 
e da invitarlo a "premere qualche tasto"; inoltre 
ha la funzione di legame tra tutti gli altri program¬ 
mi e, per questo motivo, si può pensarlo in un 
certo senso ramificato anche al loro interno. 

Il programma è caricato in un file chiamato "init. 
bas", del tutto particolare: all'accensione del cal¬ 
colatore, una volta eseguiti i programmi di dia¬ 


gnostica, il sistema operativo dell'M20 (il PCOS) si 
preoccupa di verificare l'esistenza o meno di un 
file con questo nome e, in caso positivo, il pro¬ 
gramma contenuto in "init. bas" viene immedia¬ 
tamente posto in esecuzione in ambiente BASIC, 
senza nessun intervento da parte dell'operatore. 
L'accorgimento permette l'avvio automatico del 
tutto all'accensione. 

La prima parte del programma svolge compiti di 
assestamento dell'ambiente di lavoro di Oulipoit; 
grazie all'uso del comando CALL (se sono presen¬ 
ti parametri) o del comando EXEC vengono cari¬ 
cate in memoria le seguenti routine di sistema: 

• "sp" che permette di ottenere sulla stampante 
la copia della pagina video o di una particolare 
finestra; 

• "la" che permette di scrivere una stringa delle 
dimensioni volute a partire da un punto qualsiasi 
dello schermo di cui si specifichino le coordinate; 

• "pk" che permette di ridefinire il codice ASCII 
relativo ad un qualunque tasto della consolle 
(nel nostro caso è particolarmente utile a causa 
della mancanza di un ben preciso tasto di back 
space nella tastiera dell'M20); 

Mediante'l'invio di una opportuna stringa di ca¬ 
ratteri vengono inoltre predisposti i parametri del¬ 
la stampante collegata (72 linee per modulo e 
salto carta alla fine del modulo stesso). Infine, per 
mezzo dell'istruzione Window, vengono aperte al¬ 
cune finestre video che conterranno l'intestazio¬ 
ne della mostra e, di volta in volta, i vari messaggi 
di aiuto per il pubblico: a tale proposito occorre 
ricordare che per semplicità d'uso, i tasti di return 
e di back space sono sempre indicati, rispettiva¬ 
mente, come "il tasto VERDE" e "il tasto ROSSO". 

La seconda parte del programma si occupa 
invece dell'adescamento del pubblico e del col- 
legamento tra i vari programmi. 

In assenza di qualsiasi attenzione da parte dei 
visitatori, sul video compaiono alternativamente 
due messaggi di Oulipoit che invitano a fare la 
sua conoscenza; non appena però qualcuno si 
avvicina e preme il fatidico tasto VERDE, ecco 
che compare la lista di tutte le possibili scelte, e 
basta digitare un numero per indicare quella pre¬ 
ferita. 
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Figura 1 - Il listato del 

2 REM PILOTA programma chiamante. 

10 IF ANT%)0 THEN GOTO 70 

20 PRINT;INPUT n che giorno e' oggi (in cifre) —>";GITZ 
30 PRINT-IWPUT"ohe «ese (in cifre) —>";HETZ 
(0 PRINT INPUT n che anno -)*;ANTZ 
50 IF ANTZUOO THEN ANTZ=ftNTZ+l?00 
60 COMNON GITLMETZ.ANTC 
70 CLOSE 
80 CL05E «INOOy 
90 EXEC'-dcons:* 

100 DIM SCELTA»(5) 

110 ON ERROR GOTO 770 

120 DATA "OTTIMA SCELTA. ..VE VA BE’. 

130 FOR 1=1 TO 5 
140 READ SCELTA»(I) 

150 NEXT I 
160 EXEC "pi sp* 

170 EXEC "pi la" 

180 EXEC "pi pk" 

190 EXEC "sf,,72* 

200 EXEC "+dcor.s:" 

210 CALL’pk S5E.S08" 

220 LPRINT CFK»(27);"Q072";CFK»(27);“Z’; 

230 CLS 

240 I=UIND0V (0,54) 

250 WINDOU Z2 

260 LINE (0,0)-(512»256),,8 
270 EXEC "la 'JARRY E LA PATAFISICA',50,17,3,0" 

230 EXEC"LA 'MILANO PALAZZO REALE MAG-AGO/83',54,2,2,0" 

290 WINDOW ZI :CLOSE UINDOW Z4:CLOSE WINOOW Z3:CLS 
300 REM CALL’sp 2" 

310 CLS 
320 R=1 

330 ON R GOSUB 780,920 
340 A»="“ 

350 WHILE 1(9000 AND At=’" 

360 1=1+1 
370 At=INKEY» 

380 UEND 

390 IF LEN(At)=0 THEN GOTO 330 
(00 CLS 
410 PRINT 

420 PRINT " La tua fiducia non e' tal riposta: So fare solte cose* 

430 PRINT "1- Generare anatemi o fare i»portanti rivelazioni sulla vita* 

440 PRINT “2- Spaziare oltre la saggezza u*ana e generare proverbi inediti* 

450 PRINT "3- Le stelle non sbagliano e io le leggo per voi: l’oroscopo" 

.460 PRINT "4- Dare nuovi suoni alla lettura di illustri opere* 

470 PRINT *5- Reinterpretare testi letterari" 

480 PRINT "6- Abbreviare le poesie troppo lunghe* 

490 PRINT *7- Raccontare una storia...* 

500 M=yiND0« (1,175) 

510 5=yiND0y (1,155) 
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mante. 



520 WINDOW Z3 

530 LINE (O,0M512»256)»,B 

540 EXEC'la’Preni il nuaero corrispondente alla scelta. Puoi correggere con il 
tasto ROSSO’,5,13,1,0” 

550 COLL“la"("Ricordati dopo oqni risposta di preaere il tasto VERDE 1 ,5,2,1,0) 
560 W1ND0W Z4 

570 CLS PRINT " Cosa preterisci? 

580 G0SUB 1130 

590 IF 1=9000 THEN GOTO 290 ELSE 5$=BUF$ 

600 IF LEN(5$))1 TFEN PRINT CHR$(7): GOTO 570 

610 IF S$<*1* OR S$>"7* THEN PRINT CHR* (7) ; : GOTO 570 

620 CLS 

630 CLS '43 : CLOSE WINDOV %3 : CLS Z4:CLOSE UINDON Z4 
640 WINDOW ZI 
650 RANDOHIZE(T) 

460 C=RND*100 HOD 5+1 

670 CLS:LINE (0,0)-(512,256),,B 

680 CflLL"la”(SCELTA$(C),20,100,2,0) 

490 CftLL"la”('aspetta solo un attiao...",20,50,2,0) 

700 OPEN "r’,£l,'pilota:stat",2 : FIELD £1,2 OS RICHf 
710 GET £1,VAL(S$) : L5ET RICH$=HKI$(CVI(RICHÌ)+1) 

720 PUT £1,VAL(SI) 

730 CLOSE £1 

740 ON VAL(5$) GOTO 1050,1060,1070,1080,1090,1100,1110 
750 CALL"pk S5E' 

760 END 

770 RÉSUMÉ NEXT 
780 CLS 
790 PRINT 

800 PRINT * Buon giorno, usano." 

810 PRINT * Sono ÓULIPOIT, prograaaa funzionante sul calcolatore M20” 

320 PRINT ' Ho l'obiettivo di soppiantare i vostri intellettuali,* 

830 PRINT ' in quanto ai sostituirò' a loro nel coaporre poesie," 

840 PRINT * nel raccontarvi storie, nel prevedere il vostro futuro* 

350 PRINT * e fare tutto ciò' che oggi un letterato cerca di fare.* 

860 PRINT * Seabro presuntuoso? No! So essere affabile e aaichevole." 

870 PRINT * Anzi,facciano conoscenza; siediti davanti a ae" 

880 PRINT " e preai il tasto VERDE* 

890 R=2 
900 1=0 
910 RETURN 
920 CLS 
930 PRINT 

940 PRINT " Nessuno vuole parlare con ae!" 

950 PRINT " E pensare a quanto c'e’ voluto per pensarai e costruirai!* 

960 PRINT " Ai sacrifici che hanno fatto i aiei autori!" 

970 PRINT " E poi io so divertire!" 

980 PRINT " Coae diceva il aio aaico Bill,* 

990 PRINT " 'la pazzia,«io Signore,regna su questa piazza,* 

1000 PRINT * e non v’e' luogo al aondo ov’ essa non risplenda!'* 

1010 PRINT * Non abbandonatevi ! Sedetevi e prenete il tasto VERDE* 

1020 R=1 
1030 1=0 
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1040 RETURN 

1050 CHAIN "pilota AFORISMI 

1060 CHAIN "pilota-PROVERBI 

1070 CHAIN "pilota:STELLE 

1080 CHAIN "pilota SCAMBI 

1090 CHAIN "pilota MANIP 

1100 CHAIN "pilota : ULTIME 

1110 CHAIN "pilota ROMANZI 

1120 REM ROUTINE DI INPUT TENPORIZZATO 

1130 BUF$= M " 

1140 fl$= Mrt T=0 

1150 WHILE T<9000 AND A$="" 

1160 T=T+1 
1170 A$=INKEY$ 

1180 MENO 

1190 IF T=9000 THEN GOTO 1240 

1200 IF (LEN(BUF$)>0) AND (ASC(A$)=8) THEN BUF$=LEFT$(BUF$, 
LEN(BUFt)-l) PRINT CHRK8);" M ;CHR$(8) ; :GOTO 1140 
1210 IF (ASC(ft$)=13) THEN GOTO 1240 
1220 IF ASC(A$)08 THEN BUF$=BUF$+A$ : PRINT A$; 

1230 IF LEN(BUF$)<=1 THEN GOTO 1140 
1240 RETURN 



Seguito programma chia¬ 
mante. 


In seguito ad una richiesta, viene caricato in me¬ 
moria il programma corrispondente il quale, do¬ 
po l'esecuzione della dedica, ricaricherà in me¬ 
moria di nuovo il programma PILOTA. 

Tutto questo scambio di memoria tra un pro¬ 
gramma e l'altro è possibile grazie al comando 
BASIC CHAIN, che permette la concatenazione 
di più programmi e lo scambio, tra di loro, di un 
certo numero di variabili (tutte quelle definite 
come “COMMON'' all'interno dei programmi 
stessi). Ad ogni selezione vengono inoltre incre¬ 
mentati i contatori posti sul file “stat" che conter¬ 
rà, perciò, sempre il numero totale delle selezioni 
effettuate, mentre i tempi morti durante il carica¬ 
mento dei vari programmi vengono riempiti con 
alcune frasi di commento generate casualmen¬ 
te. 

Un ultimo importante particolare è rappresen¬ 
tato dalla routine di input temporizzato. Uno dei 
pericoli del dialogo col pubblico per mezzo dell'i¬ 
struzione INPUT era costituito dal fatto che, se un 
visitatore, nel bel mezzo dell'introduzione di una 
stringa di risposta, avesse deciso che non era il 
caso di "perdere altro tempo con tali sciocchez¬ 
ze'', Oulipoit sarebbe rimasto bloccato a quel 
punto fino a quando qualche buon'anima non si 
fosse premurata di battere il tasto di return. Per 
ovviare a questo inconveniente si è perciò dovuto 
costruire una routine di input con un time out di 
circa un minuto tra un carattere e l'altro: se entro 
tale tempo nessun tasto viene più battuto, tutta 
la situazione toma nelle mani del pilota 

Tale routine, insieme con le istruzioni di apertura 
e chiusura di finestre su video e di stampa di 
stringhe particolari, è presente in ogni altro pro¬ 
gramma di Oulipoit e costituisce ciò che abbia¬ 
mo definito come una ramificazione del PILOTA. 
Comunque la maggior parte di queste particola¬ 
ri soluzioni sono agevolmente sostituibili con altre 
equivalenti presenti in quasi tutti i personal. 


Aforismi 

L'algoritmo su cui si fonda il programma AFO¬ 
RISMI è già stato ampiamente discusso nell'arti¬ 


colo di presentazione di Oulipoit apparso su Bit 
(n. 43), perciò ci limiteremo a riassumerlo breve¬ 
mente. 

Ogni linguaggio è basato su di un certo insieme 
di parole o di simboli (il vocabolario); alcune 
sequenze di tali parole sono riconosciute come 
corrette e costituiscono le frasi del linguaggio 
mentre altre, al contrario, sono giudicate scorret¬ 
te oppure mal costruite. Ciò che permette di de¬ 
terminare se una particolare sequenza di parole 
costituisce o meno una frase è la sintassi del lin¬ 
guaggio stesso. 

A partire da un certo insieme di regole sintatti¬ 
che consistenti e da un vocabolario iniziale, è 
possibile, in base a ciò che si è detto, generare, 
per esempio in modo casuale, tutte (avendone la 
pazienza!) le frasi ammesse da un qualunque 
linguaggio. Questo è il compito del programma 
AFORISMI. 

Il vocabolario di cui dispone il programma è tutto 
contenuto in un certo numero di file interni creati 
mediante l'istruzione “DATA", e le parole che vi 
appartengono, per semplificare al massimo la 
corretta applicazione delle norme della sintassi, 
sono divise per categorie grammaticali (articoli, 
nomi, avverbi, ecc.). 

I termini che costituiscono il patrimonio lessicale 
di AFORISMI sono 338, numero più che sufficiente 
per creare un'infinità di differenti frasi, tuttavia ne 
sono riportati solo alcuni a titolo di esempio: 
ognuno si sbizzarrisca come può. 

Anche la sintassi del nostro linguaggio è piuttosto 
ristretta; ogni frase può essere costruita in uno dei 
seguenti modi: 

• ARTICOLO -»- NOME + VERBO TRANSITIVO -I- COMPLEMENTO OGGET¬ 
TO + AVVERBIO 

• ARTICOLO + NOME + VERBO INTRANSITIVO + AVVERBIO 

inoltre la parte nominale di ogni frase (articolo + 
nome) può essere anche costituita da una parti¬ 
colare esortazione del tipo “sia maledetto colui 
che" oppure “lunga vita a", e all'inizio di ogni 
proposizione affermativa è possibile la presenza 
di un complemento di luogo. 

Dopo una parte iniziale, in cui tutti i termini del 
vocabolario vengono caricati in 12 array (uno 
per ogni classe grammaticale rappresentata) 
per permettere una più agevole ricerca casuale, 
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il programma segue uno sviluppo ad albero bi¬ 
nario. 

Come prima cosa esso opera una scelta tra la 
costruzione di una frase affermativa oppure, di¬ 
ciamo così, di un anatema (entrambi i costrutti 
hanno uguali probabilità di vedere la luce) e, 
una volta sciolto questo dilemma, viene genera¬ 
ta di conseguenza la prima parte della frase. 

La decisione successiva consiste nel continuare 
con un verbo transitivo oppure con uno intransiti¬ 
vo (anche in questo caso le probabilità sono 
salomonicamente uguali) e, se il fato propende 
per quest'ultimo, viene naturalmente omesso il 
complemento oggetto e si passa direttamente 
aH'awerbio che, in molti casi, consiste in una lo¬ 
cuzione avverbiale o in un complemento di mo¬ 
do. 

La frase, ormai completa, rimane visualizzata 
sullo schermo per il tempo strettamente necessa¬ 
rio per poterla meditare attentamente, quindi 
lascia il posto alla successiva: il programma, in¬ 
fatti, genera un gruppo di dieci frasi ogni volta 
che viene risvegliato e, ognuna di esse viene pre¬ 
sentata al centro del video su righe di 50 caratteri 
al massimo (la variabile LAC contiene in ogni 
momento la lunghezza della stringa da visualiz¬ 
zare). 

Anche in “AFORISMI", come in ogni altro pro¬ 
gramma di Oulipoit, sono presenti tutte le istruzio¬ 
ni di interfaccia col visitatore: il comando “la" per 
la stampa di stringhe di diversi formati, il coman¬ 
do “sp" per la copia sulla stampante del conte¬ 
nuto di una finestra video, l'istruzione WINDOW 
ecc. È naturalmente presente anche la routine di 
input temporizzato indispensabile per la richiesta 
del nome da inserire nella dedica. 

Un'ultima annotazione: tutte le scelte aleatorie 
che il programma implica sono effettuate, come 
è facile immaginare, utilizzando l'arcinota funzio¬ 
ne RND e il generatore di numeri casuali è inizia- 
lizzato una volta per tutte con il prodotto tra i 
minuti primi e secondi forniti dalla procedura TI¬ 
MES al momento del richiamo del programma 
stesso. 


Romanzi 

Gli ingredienti necessari e sufficienti per costrui¬ 
re un romanzo d'appendice di discreto successo 
non sono molti e, fortunatamente, sono anche 
ben classificabili: 

• i buoni; 

• i cattivi; 

• l'amore a prima vista; 

• l'odio fino all'ultimo respiro. 

Il segreto sta poi nel saperli mescolare vigorosa¬ 
mente fino ad ottenere, tra un colpo di scena e 
l'altro, il più piacevole dei lieto fine. Tutti ormai si 
saranno accorti che, se si tratta di ingarbugliare 
le cose ad arte, non c'è nulla di meglio di un 
calcolatore, per cui esistono tutte le premesse 
perchè il programma “ROMANZI" possa sfornare 
trame romanzesche da manuale. 

Il tutto ha origine, naturalmente, da un certo nu¬ 
mero di personaggi (massimo sei e minimo due) 
che l'aspirante autore può qualificare mediante 
due attributi: il nome, che essendo una stringa di 
dimensioni qualsiasi, può contenere anche ag¬ 
gettivi, epiteti vari, vezzeggiativi e altre coloriture 


del genere, e il sesso a cui il personaggio appar¬ 
tiene. Ognuno di questi è inoltre descritto da al¬ 
cune variabili che permettono di definirne lo sta¬ 
to durante ciascun episodio della trama, e che si 
evolvono con il naturale dipanarsi della vicenda. 
Vediamo in dettaglio quale è il loro significato. 
Lo stato di ogni personaggio è definito da: 

• l'insieme dei CONOSCENTI: coloro cioè che, in 
un modo o nell'altro, sono entrati nella vita del 
nostro eroe 

• l'insieme dei CONOSCIBILI: coloro che hanno 
buone probabilità di entrare, prima o poi, a far 
parte dei CONOSCENTI 

• l'insieme degli SPOSABILI: tutti gli esponenti del¬ 
l'altro sesso che non sono già coniugati 

• l'insieme delle VITTIME: tutti gli appartenenti allo 
stesso sesso del personaggio e che egli, per ragio¬ 
ni di gelosia o di denaro, vorrebbe veder morti 

• il CONIUGE, che indica se il personaggio può o 
meno far parte dell'insieme degli sposabili relati¬ 
vo a qualcun altro 

L'evoluzione di queste variabili deve seguire, na¬ 
turalmente, alcune regole di verosimiglianza e di 
convivenza civile e quindi, durante la vita del 
nostro eroe, vengono continuamente aggiornate 
per evitare inverosimili resurrezioni o imbarazzanti 
casi di poligamia. 

Il nostro personaggio può dunque compiere una 
di queste tre azioni: 

• può conoscere un appartenente all'insieme dei 
CONOSCIBILI, 

• può impalmare un esponente degli SPOSABILI, 
eventualmente rompendo un precedente lega¬ 
me, 

• può disfarsi di un pericoloso rivale oppure, ahi¬ 
mè, porre fine alla propria esistenza. 

La storia si conclude con il tradizionale “...e 
vissero felici e contenti" quando lui e lei, superati 
tutti i colpi del destino, si ritrovano finalmente privi 
di nemici. 

La prima parte del programma è dedicata all'ini- 
zializzazione delle variabili di stato e dell'introdu¬ 
zione degli attributi dei vari personaggi: due ap¬ 
posite routine si occupano di effettuare controlli 
sul nome e sul sesso a cui appartiene ogni singolo 
personaggio per evitare omonimie oppure la 
mancanza totale di esponenti di uno dei due 
sessi. 

Il cuore del generatore di trame è invece costi¬ 
tuito da un loop principale che, una volta costruiti 
l'array contenente tutti i personaggi ancora in 
vita, valuta le possibilità di azione di uno dei per¬ 
sonaggi, scelto a caso, e richiama la routine rela¬ 
tiva all'azione da compiere. Queste tre routine, 
corrispondenti a CONOSCERE, SPOSARE e UCCI¬ 
DERE, si occupano a loro volta di aggiornare le 
variabili di stato dei personaggi coinvolti e di in¬ 
formare il pubblico, con frasi lapidarie, dell'azio¬ 
ne avvenuta: ognuna di tali frasi è inoltre colorita 
con una affermazione casuale (scelta tra le 36 
possibili) che ha il compito di chiarire le ragioni 
dell'accaduto. 

Il problema principale incontrato nella stesura 
del programma “ROMANZI" è stato quello di tro¬ 
vare una valida rappresentazione per le variabili 
di stato che, intuitivamente, possono essere inter¬ 
pretate come insiemi, e che quindi devono esse¬ 
re trattate con le operazioni tipiche dell'insiemisti¬ 
ca: unioni, intersezioni ecc. In assenza di una 
struttura di dati adeguata, tutte queste variabili 
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sono invece definite come interi: il BASIC imple¬ 
mentato su M20 rappresenta infatti gli interi su 
due byte, e si hanno a disposizione ben 16 bit, 
ognuno dei quali rappresenta l'appartenenza o 
meno di un certo personaggio a quell'insieme. 
Vediamo di chiarire le cose con un esempio: se la 
variabile VITTIME del personaggio "tizio" vale 13 
(rappresentazione binaria su due byte 
0000000000001101), ciò significa che "tizio" non 
vede l'ora di sbarazzarsi del personaggio n. 1, del 
n. 2 e del n. 4. 

Usando questo trucco, le operazioni di unione, 
di intersezione e di complemento possono essere 
facilmente implementate usando rispettivamen¬ 
te gli operatori AND, OR e NOT logici. In questo 
modo, rifacendoci alla definizione delle variabili 
di stato, definiremo le possibili vittime di "tizio" 
come: 


e l'ennesimo bit del risultato si porterà al valore 1 
solo se entrambi gli ennesimi bit dei due termini si 
trovano a 1. 

Questo programma è passibile di ulteriori e inte¬ 
ressanti modifiche e migliorie; innanzitutto è pos¬ 
sibile farne di tutti i colori (di trame): rosa, gialle, 
nere, a luce rossa, semplicemente cambiando il 
nome alle azioni, modificando alcune frasi di co¬ 
loritura e, eventualmente, qualche variabile di 
stato. Sarebbe inoltre interessante spezzare ogni 
azione in un certo numero di sotto azioni, in modo 
da ottenere un romanzo costituito da un certo 
numero di sotto romanzi, i quali a loro volta po¬ 
trebbero essere costituiti da altrettanti sotto ro¬ 
manzi, i quali a loro volta ... 

(Continua) 


VITTIME% = STESSOSEX% 
AND CONOSCENTE 


. ?! 


; h 


LG REM AFORISMI 

£0 COMMON NONE*,ANTE, METE» SIT% 

30 CLS 

40 fWlINDOH (1,175) 

50 PRINT 

60 PRINT :PR INF Questa funzione genera due tini di frasi: 
70 PRINT 

80 PRINT ’ ftnateei,Maledizioni,benedizioni e siiili 
90 PRINT:PRINT* Osservazioni,fatti,aneddoti, 'pensierini’" 
100 PRINT 1 sulla vita intana” 

110 PRINFPRINF Dimmi come ti ehiasi ed io" 

120 PRINT" ti dedicherò ouesto mio sarto — 

130 yiNOOU lì 

140 LINE (Q,Gì-C512,25ó),,B 
150 EXECla’Se sbagli suoi correggere con il tasto 
ROSSO’,5,12,1,0* 

160 EXEC "LA 'Ricordati doso la risoosta di preaere 
il tasto VERDE’,5,2,1,0" 

170 WINOOW 21 
ISO G0SUB 2310 

190 IF T=?0Q0 THEN N0HE$= n "-.GOTO 2300 ELSE N0ME$=BUFt 
200 IF LEN(N0HE*)=G THEN N0HE$="UN0 SCONOSCIUTO” 

210 CLS 

220 PRINT ; LF'RINT 
230 A=VAL(HID$(TIHE$,4,2)) 

240 D=VAL(HID$(TIN£$,7,2)) 

250 CLS lì 
260 FIN=G 
270 C=D#A 
280 RANDOMIZE(C) 

290 DIM B$(5),C»(5),H»(50),F$<50),T$(50),I$(50),G$(50), 

P$(50),A$(50), Li(20),2$(20),AH$(20) 

300 REM TESTATA E START 
310 GOSUB 820 


Figura 2 - L'insieme di 
istruzioni di aforismi. 
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Seguito listato program¬ 
ma istruzione di aforismi. 
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Seguito listato program¬ 
ma istruzione di aforismi. 
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Seguito listato program¬ 
ma istruzione di aforismi. 



1330 RETURN 

1340 REM -jEMERA ARTICOLO MASCHILE «««**« ••*« 
i35u I =RND \ 1 ) *B1 *. 5 
1.360 LAC-LAC+LEN (BUI)) 

1370 IF LAC/50 THEN FRINÌ:PRINT BUI):" -PRIMI SUD- 
" :lAC=LEN!BI(D) ELSE SPRINT EHI):" *: LFRINT BUI) 
1380 RETURN 

1390 REM GENERA AGGETTIVO MASCHILE «*****«*«*#«# 


» *i 


•400 IF CIMI (I)(3 

T HEN I=RND(1H 

1410 LAC=L.AC+LEN(( 

IMI ( I ) ) 


1420 IF LAO50 THEH FRINÌ:PRIMI AH$(I;: n ’: -LrRI«I AMITI): 

’ :LAC=LEN(AHUP) ELSE PRIMI AMITI) :* "sLF’FINT AMITI) 

i t -nn "ir'’’' T il 

ÌH-J'J he i yr.N 

Ì4“0 REM GENERA NOME MASCHILE <#*«**#«# 

1430 IF CINTI!)<3 THEN I=RND<i)*19+,5 ELSE IGNOTI)«11+19.5 
14 q0 LhC-LAC +LEN (MI ( 15 ) 

1470 IF LAOSO THEN PRIMI.FRINT H$«I>:” LFRINT MITI): 

’ *:-LAOLENTHITD) ELSE PRIMI MITI):" V LFRINT MITI): ! 
1480 RETURN 

1490 REM GENERA ARTICOLO FEMMINILE **##*•+«****«<• 

15DC I=RND!i:«Ci+.5 
LAO=LAC+L£N(CÌ'I}) 

IF, LAOSO THEN PREPRINT CUI):" : LFRINT CUP: 

: • i.xC=Uf! -X%Ui> tL3C rK'MT lIu.» : : -j_FmNi •*% ù; : : 

RETURN 

REM GENERA AGGETTIVO FEHHiNILE «*#«««*««##«**«#«* 
I=RND(ì)*Zi+.5 

ufiC-LAC+'-^N u * \ i ; i 

IF LAO50 THEN PRIMI: F'RINT ZITI) : * -LPRIMT ZITI): 

* ":.LhC=LEN-;ZUD) ELSE F'RINT ZITI);’ " : :LPRINT ZITI) 
RETURN 

REM GEMERÀ NOME FEMMINILE *«#*****»** 

I=RND(l)*Fl+.5 
LAC=LAC+LENTFHI)) 

IF LAOSO THEN F'RINT-PRINT FUI):" VLFRINT FUI): 

" :LAC=LEN(FI(I)) ELSE F'RINT FUI):" ”:-LFRINT FUI): 


•• 9 


f C •* o 

iJiU 

• enr 
1 -JiLU 


> -\30 


4 r i n 

A * r* •% 

ÌJ-jO 


*c *r. 
iJ-JU 


1570 


1-580 

•.sor. 

1600 


4 i - 


•I «I 


1620 


P H 


1630 

1640 

1650 

1660 

1670 

1680 

lò?0 

1700 

1710 

1720 

1730 


C'C 

I \ Lm • 


1750 

1760 


REM GENERA COMPLEMENTO DI LUOGO *#*«#**«***#«*«* 

i=rnd:p*li+.5 

lac=lac+lem*:l$(I)) 

IF LAOSO THEN PRINT:PRINT LUI):* VLFRINT LUI): 

" LAOLENTLUD) ELSE PRINT LUI):’ V-LFRINT LUI) 
RETURN 

REM GENERA ANATEMA ****#***#*•*«*« 

REM PARTE INIZIALE 
G05UB 1840 
REM PARTE CENTRALE 
G0SUB 1890 

IF RND(1)>.S THEN 1780 
REM INTRANSITIVO 
SOSUB 1190 


l» D 
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i /u b'J : 'j i« ili 

4 - 

i. 


'780 REM TRANSITIVO 


t top * *\r » *r* -j n/ r, 
i/tU lit'j 

* or 


n - i i r i n r r • 


ic'J'j lUj‘J 

1810 REM AVVERBIO 
1320 OCSiJB 1290 
1830 RETURN 

1840 REM GENERA ANATEMA INIZIALE ************* 
1350 I s RHD(l)*Gl+.3 
1860 LhC-LhC-LEN‘ ui u }) 

1870 IF LAC>50 THEN F'RINT : FRINÌ 5$ *1) : * " 

LHL=L ZJWiiKin Eli?E ->.iM bHu» : 

r ir. i 

iodu KtiUr.M 

REH hHhTEHh CENTRALE k*h*h******* 

I =RND ( 1 > x*Pi *. 5 


nnTi’T *» ± ■ ? •• 


W , ì t J. • - I 

il il 


« (- s r t \i-r -v * t t \ 

: Lrr.iNT U. J : 


r* * 


*n 


0 ■ 


1810 LAC=LAC+L£N i?IU)> 

1920 IF LhC:óG THEN FRINÌ FRINÌ PICI):’ ". LPKINT 
" : : LhC=LEN(F'$ 11)) ELSE FRINÌ F$iI5: 

1930 RETURN 
1940 REM DATI 

1950 DATA 4 : REH ARTICOLI MASCHILI 
n , IL 1, » , UNVL0 , *"liH0" 

. REH ARTICOLI FEMMINILI 
1980 DATA "LA". "IJNA" 

IO • REM NOMI MASCHILI 


ri\n : 


»o*NT ?$.;!):* » 


i r\ / r\ 

à7òU 

Ipir. A T 

19/0 UH ; H 


■mi f>/».TA 

i77tl JH ! H 


2000 

*\ A T "' 

L'H 1 M 

'CANE") 1 

jH 1 5 ’J 

2010 

DATA 

"TAF 

r —. a ti 
i V * 

.* * * i < i 

•vnr 

? i ! i 

c» «uW 

DA T A 

41 : 

rti i 

MQK7 

: t V 1 ! A 

2030 

A • 

UH IH 

E GAi 

^/l J 

5 8 « 

?! r 1 • vi n 
r v* w H 

2040 

DATA 

' hi NED DO' 

CHE• ,. 

2050 

DATA 

20 

REH 

VESSI 

20Ó0 

n r. — .n 

JH 1H 

'SCUOTE* 

."ISTI 

2070 

•JH r ri 

” MANDA lì 

N SOLE 

2080 

A • A 

uh Ih 

47 

SEM 

VERBI 

■n ; -. i-. n 

20? U 

r. A -r .n 

LH i H 

"SI 

CROG 

I0LA “ . 


2100 DATA "AGONIZZA"... 

2110 DATA 4? • REM AVVERBI 

"CON UN GRIDO*/“PER LA PATRIA’'.. “SPONTANEAMENTE' 
"SENZA PAURA".-.. 


?i vn 

im «UW 

n- *rr, 

ù-1 urtJ 


•*. f, 

« I 

w il » 


U 

i t t 


2140 

2150 

2160 

2170 

2180 


2170 


i t r. 

UH ! ri 

f* * t r K 

UH i ri 

DATA 

- a -r a 

„• H ! H 

n a T.n 

LH l H 




2200 DATh 


!•* 1 . 
.* ‘il 

^ i_ ì 


2220 

*230 

2240 

22;ii » 


n %*r a 

L'H ! H 


DATA 


f\TA 

urilri 


DATA 


43 : REM ANATEMI INIZIALI 

■LODE E GLORIA A”,"VIVRÀ'IN ETERNO* 

•NON TEME LA MORTE*,. 

42 : SEM ANATEMI CENTRALI 
"CHI","COLUI CHE’,"COLUI IL QUALE" 

it 11 p,Anrr.{v t ;r* il 

il b nufpfi 4 rMh w . 

4 w i v fLi\w w i </• i « r » M i i 

12 . REM COMPLEMENTI DI LUOGO 

■PER LA STRADA","SUL TRAM",*IN CHIESA" 

“IN AUTO". 

15 SEM AGGETTIVI FEMMINILI 

'SELVAGGIA*,"DANNATA",'SVAMPITA","MERAVIGLIOSA" 

'SCHIZZINOSA 1 ,. 


Seguito listato program¬ 
ma istruzione di aforismi. 



1984 • Bit - 37 
























Seguito listato program¬ 
ma istruzione di aforismi. 



Figura 3-11 listato che 
produce interessanti ro¬ 
manzi. 
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6 APRILE - 22 GIUGNO 

CORSO DI PROGRAMMAZIONE 

BASIC 

TEORICO E PRATICO 

A) introduzione alia struttura degli elaboratori 

B) Introduzione alla programmazione 

C) Studio delle principali strutture di Dati 

D) Studio del linguaggio BASIC 

E) Studio degli Archivi di Dati 

F) Applicazioni con l’uso della memoria di massa 

G) Studio e applicazioni sull'uso della stampante 

H) Applicazioni sull’intero sistema 

PREZZO: L. 350.000 + IVA (18%) 


HELIS è un rivenditore JACKSON 


GRUPPO EDITORIALE 
JACKSON 







5 APRILE -14 GIUGNO 

CORSI PER HOBBISTI 





COMMODORE 64 


Giorni: Lunedì - Giovedì 
Orario: 17,30*19,30 


HELIS 

Roma - Via Montasio n. 28 
Tel. 06/89 22 756 



NOTE: Si tratta di due corsi contemporanei 
riguardanti la programmazione BASIC e lo stu- 
dio delle capacità grafiche e sonore del VIC 20 
e del COMMODORE 64, con numerose applica¬ 
zioni pratiche 


HELIS è un rivenditore COMMODORE 


ft Commodore 

v COMPUTER 



1984 • Bit - 39 





















Seguito listato program¬ 
ma romanzi. 




40 - 1984 e 


Bit 


1111 




















Seguito listato program¬ 
ma romanzi. 




Ci conoscete per il nome Zilog ma forse non per il: 




MIC - 500 un classico CP/M 
di qualità 
professionale ma 
dal prezzo 
imbattibile 
(riteniamo di poter 
farVi risparmiare 
almeno il 5% 
rispetto a qualsiasi 
personal 
di simili 
prestazioni) 


PC- 512 


Un oggetto che NULLA ha a che fare con gli home computerl 

- il MPF è uno strumento didattico ideale per scuole e privati; 
non serve per giocare ma per imparare l’elettronica! 

- è una piastra ‘generai purpose’ per strumentazione ed usi OEM con 
CPU-Z80; RAM; DEBUGGER; ev. BASIC; TASTIERA; DISPLAY; INTER¬ 
FACCE: CASSETTA, parallelo e BUS-Z80; ALIMENTATORE; DOCU¬ 
MENTAZIONE; CUSTODIA ETC. 

- con le opzioni stampantina, EPROM programmer e ASM potete avere 
un sistemino di sviluppo a meno di 1 milione. 

Costa circa L. 250.000, cioè 3, 4 o 5 volte meno di prodotti simili 

ed è probabilmente più affidabile. Col MPF sarete “imbattibili”. 

Abbiamo inoltre computer “high end” (con UNIX, Multiutenza, VAMP 

etc.), piastre OEM, terminali, componenti etc. 

Se non ci conoscete ancora contattateci! 


Il PC-compatibile per chi vuole 
di più spendendo meno 


Microprofessor é un 
marchio registrato della 
Multititech Industriai Corporation 


Zelco s.r.l., via V. Monti 21 - 20123 Milano - Tel. (02) 803336 o 804247 - Telex 335346 ZELCO I 
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Ogni settimana l'elettronica, l’informatica 

lelettrotecnica in un unico fascicolo 




Enciclopedia di Elettronica e Informatica 
Oggi in edicola... domani nella vostra biblioteca 


Mi 


Enciclopedia di 
Elettronica e Informatica 


50 fascicoli settimanali 

• 12 pagine di elettronica digitale 
e microprocessori 

• 16 pagine di informatica 
(oppure elettronica 

di base e comunicazioni) 

• 1 scheda (2 pagine) 
di elettrotecnica 

per ottenere in meno di un anno 

• 7 grandi volumi 

• 1400 pagine complessive 

• 1 volume schede di elettrotecnica 
L opera è arricchita 

da circa 700 foto 
e 2200 illustrazioni a colori. 


con 

I Tex 


In collaborazione 
con il Learning Center 

Texas Instruments 




• Per avere sempre il video libero 

• Per avere le stampe finite in breve tempo 

• Per aumentare drasticamente l’efficienza del 
tuo computer 

• Per fare più lavoro nell’arco della giornata 



SPOOLER ISP-64 e ISP-256 


La funzione dello Spooler è quella di ricevere i dati destinati alla stampante, alla massima velocità di cui è 
capace il Computer, memorizzarli e quindi rinviarli alla stampante alla velocità di stampa che questa può 
accettare. 

Il Computer è quindi libero di svolgere altre attività (ulteriori procedure o ingresso dati) mentre lo SPOOLER 
provvede ad amministrare la stampante. 


CARATTERISTICHE GENERALI: 

1) Basso costo 

2) Test automatico della memoria durante gli stati di inattività. 

3) Compressione degli spazi per aumentare la capienza della memoria 

4) Simultaneità delle operazioni di ingresso e di uscita dati. 

5) Possibilità di conversione di interfaccia seriale/parallela o parallela/seriale. 

6) Compatibilità completa delle interfacce parallele con protocollo Centronics e delle interfacce seriali con 
norme RS-232C. 

7) Contenitore metallico, con alimentatore incorporato. 



22070 Umido Comasco (COMO) 
Via Giovanni XXIII f 19 
Tel. (031) 93.83.11 
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1800 FRI NT * LASCIA n :N0ME*(C0NIUGE!(TIZI0Z)) PER \ 

NOME*(CAIO!) 

1810 CONIUGE!(CONIUGE! (TIZIO») =0 

1820 SP05ATIZ=5P05ATI! AND (255-2 A (COHIUGEZ(TIZIO»-i)) 

1830 GOTO 1850 

1840 LP'RINT ' SPOSA ■ : NOHE$ (CAIOZ) -cPRIKT " SPOSA *:NO«E$(CAIO%) 
1850 CONIUCEZ(TIZIOZ)«CAIOZ 
Ì86Q CONIUGE!(CAIOZ) =TI2I07. 

1870 5POSATI!=5POSATIZ OR (2 A (CAI0M)) OR (2 A (TIZI0!-i)) 

1880 RETURN 

1890 REM QUESTA ROUTINE Fh UCCIDERE A TIZIO UN PERSONAGGIO 
(EVENTUALMENTE SE STESSO) 

1900 I!=0 
1910 J!=0 

1920 «HILE VITTIMEXOQ 
1930 I!=I!+1 

1940 TEMF-VITTIME! MOO 2 

1950 IF TEHF-i THEN JZ=J%+1:ARR(J%)=IZ 

I960 VITTIME%=VITTIMEZc2 

1970 WEND 

1980 CAIOZ=ftRR(((RND*IOO) MOO JZJ+l) 

1990 CASO=((RND*1Q0) HOD 36)+1 

2000 LPRINT COMM*(CASO) SPRINT COMM*(CASO) : 

2010 LPRINT NOME*(TIZIO!) SPRINT NOME*(TIZIO!) : 

2020 DONNE!=DONNE! AND (255-2 A (CAI0!-l)) 

2030 UGMINIZ=UOMINI! AND (255-2 A (CAI0Z-l>) 

2040 IF CONIUGE!(CAIO!)=0 THEN GOTO 2070 
2050 CONIUGE!(CONIUGE!(CAIOZ))=0 
2060 5P0SATI!=SPOSATI! AND (255-2 A (CAI07.-i>) AND 
(255-2 A (CONIUGE! (CAIO!)-D) 

2070 IF TIZIO!=CAIOI THEN LPRINT " SI UCCIDE!! * ELSE LPRINT 
" UCCIDE "; NOME*( CAIO!) 

2080 IF TIZIOZ=CAIOZ THEN PRINT " SI UCCIDE!! " ELSE PRINT 
’ UCCIDE \NOME*(CAIO!) 

2090 RETURN 

2100 CHAIN "ir.it. bas" 

2110 RÉSUMÉ NEXT 

2120 REM ROUTINE DI INPUT TEORIZZATO 
2130 BUF$=" 

2140 A*="":T=0 

2150 UH ILE T <9000 AND h$=” 

2160 T=T+i 
2170 A*=INKEY* 

2130 «END 

2190 IF T=9000 THEN GOTO 2240 

2200 IF (LEN(BUF*)>0) AND (ASC(A*)=8) THEN 8UF*=LEFT*(BUFt» 
LEN(BUF*)-1):PRINT CHR*(8):’ ”;CHR*(8);:GOTO 2140 
2210 IF (A5C(A*i=13) THEN GOTO 2240 
2220 IF ASC(A$)08 THEN BUF*=BUF*+A$:PRINT A*; 

2230 GOTO 2140 
2240 RETURN 


.* 
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IMPORT 




Rivenditori Autorizzati: 

SINCLAIR - COMMODORE - TEXAS - EPSON - SEIKOSHA - SAICO - JACKSON ED. 

La METRO IMPORT nell'ambito della sua organizzazione, sempre all'avanguardia e in continua progressiva evoluzione 
sia qualitativa che tecnica, è in grado di fornire ai propri clienti, per corrispondenza o direttamente presso i punti ven¬ 
dita di Roma e Milano: 

• Una serie di home computers fra i più qualificati con i relativi accessori, 
software applicativi su cartridge, su nastro o su disco. 

• Personal computers e periferiche con assistenza hardware 
da parte di personale specializzato. 

• Assistenza software sia su pacchetti applicativi standard 

(contabilità, fatturazione, magazzino, paghe e stipendi) che 

per procedure personalizzate (scientifiche e gestionali). 

• Leasing finanziario. 

Ogni realizzazione, dopo un accurato studio e sopralluogo, 
verrà consegnata "CHIAVI IN MANO": 


Omaggio il catalogo 
di Informatica 


Per ricevere il catalogo in omaggio, ritagliare e spedire 
il coupon allegando L. 500 in francobolli. 
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Free software. 

Cali 800-538-1780. 



K you ve spentane shopping ter 
a smafl b ernes e computer vou'iv 
aware that you need smarr sofrware lo 
gei any woHc dono W» d Idee » moke your 
decsaor, eeser bv gnnng you a iree head start on 
busness somaro tor powerfol TeèeVideo TS 902 
c o mpu ter» Just cai ut af 800-538-1780 and youU 
«arr. boario gol WORDSTAB* thè maitpopuiar 
word processing program and CALCSTaR* thè 
aianaai piammo wtzard 

That's a S799 vaiue at no charge when you 
buy a TS 002 on top ot thè extra* we normally 
suppry Whenever you buy a TeieVideo S y stem we 
aiways ndude CPM* thè versafiie operatng 
sysiem that bis m use thousands ol program* tote 
WORDSTAR AND CALCSTAR 


Thewey 
weseeit gmng 
you thè focus to pu! 
your computer » work 
immediateiy sane of thè spettai tnmgs 
aboul TeieVideo Mere importar.! to you. 
(bough ts thè whoèe way we de business fcunded 
on ftmeiv deiivery, naticnwtoe semee rebafcée 
easy-to-use computerà and thè butan flenbéty that 
ieis our Systems grow as your bu*neas grows 
When yuu add fl aS up._you E see that no other 
co mpu ter - inoudmg !9M~s ?C DECsRambow* 
or any Apple* - otte» thè totai vahje vou gei 
frem Teievideo 

So caS us new tot thè best doto aimcro- 
computing Theres never beer. a software dea. 
tote ras belone and * i no! gong io be avaóabie 
tocever Cd 800-538-1790 toB-free betoni 
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ZIP: il gioco delle freccette 


di D. Citterio 


P rovi il lettor© ad immedesimarsi in questa si¬ 
tuazione. Corre da me una sera la minore 
delle mie figlie, 7 anni e qualche giorno. "Papà, 
mi fai un gioco nuovo col computer?" Resto di 
sasso. "Come nuovo!? Te ne carico uno di quelli 
che abbiamo". "Ma no, io ne voglio uno che non 
ho mai fatto". 

Mi sono sentito sull'orlo dell'abisso! Come padre 
e insegnante rispetto alla sua età rivesto i panni 
del "sotutto" di casa, colui al quale si ricorre in 
qualunque occasione; figuriamoci se potevo 
confessare di possedere doti di programmatore 
non proprio eccelse, e comunque non così fulmi¬ 
nee da saper creare in pochi minuti un gioco. Il 
fatto è che a sette anni il padre è l'eroe per 
antonomasia e già mi preparavo a vedere que¬ 
sta mia figura franare con anni di anticipo. Quan¬ 
do balenò l'idea di Guglielmo Teli. Non mi si chie¬ 
da da quale associazione di idee fu partorita, né 
da qual recondito anfratto mentale sia schizzata 
fuori. Probabilmente anche nei cieli già c'è un 
Santo che si occupa di informatica e dei suoi 
praticanti e a Lui credo di dovere il programma 
che vado ad illustrare. 

È un giochino molto semplice. Consiste nel col¬ 
pire un bersaglio posto su un lato dello schermo 
con una freccia che scocca dal lato opposto. È 
diviso in tre parti; nella prima il movimento della 
freccia è dal basso in alto, nella seconda da 
destra a sinistra, nella terza in diagonale. Il com¬ 
puter posiziona casualmente sia il bersaglio che 
l'arciere, al giocatore vien chiesto di effettuare 
l'allineamento muovendo l'arciere e quindi di far 
scoccare la freccia. Si hanno a disposizione cin¬ 
que frecce per ogni parte ed alla fine vien fornito 
il punteggio. 

Esso dipende dai centri realizzati e dal tempo 
trascorso; più tempo si impiega a far partire la 
freccia, meno punti si conquistano. Il gioco è 
stato pensato per bambini di otto/nove anni ed 
infatti la parte "scolastica" inserita effettua il con¬ 
trollo delle tabelline. Non potendo escludere che 
anche i più piccoli possano trarne motivo di im¬ 
pegno si può sostituire il tipo di calcolo proponen¬ 
do alla linea 980 il segno di addizione invece di 
quello della moltiplicazione. Se cinque calcoli 
sembrano pochi si aumenti il 5 della linea 970 
con l'avvertenza che se esso supererà il 10 biso¬ 
gnerà togliere uno dei due PRINT alla linea 980. Il 
gioco, molto lineare e all'apparenza fin troppo 
elementare, non deve trarre in inganno rispetto il 
suo reale livello di difficoltà. Al bambino vien chie¬ 
sto di confrontare due posizioni che vanno poste 
in corrispondenza premendo i tasti N e M. Ciò 
presume una buona motricità fine della mano 
destra ed una parimenti buona coordinazione 
occhio-mano. La difficoltà aumenta nella secon¬ 
da parte, quando gli stessi tasti controllano il mo¬ 
vimento in verticale dell'arciere. Nell'ultima parte 
infine si noterà che non è affatto facile trovare per 
l'arciere la giusta posizione,... e i lamenti del "tra¬ 
fitto" saranno numerosi. Inizialmente è opportuno 


raccomandare al bambino di controllare i tasti N 
e M con l'indice e il medio della mano destra, e di 
mantenere l'indice sinistro sul tasto Z per lanciare 
la freccia. In tempi successivi le dita possono es¬ 
sere variate per distribuire l'esercizio sull'intera 
mano. Ricordiamo che è sempre opportuno col¬ 
legare lo Spectrum ad un piccolo amplificatore 
per apprezzare meglio il suono. Al termine di ogni 
parte il bambino è chiamato ad un breve inter¬ 
vallo di "lavoro scolastico". 

Senz'altro sarà ben sopportato e potrebbe ad¬ 
dirittura essere utile a stemperare quel minimo di 
tensione che sempre si ingenera durante un gioco. 




REMarks 

10-60 

Presentazione del gioco. 

70-100 

Istruzioni. 

120; 355; 
540; 545 

Scelta delle coordinate per posiziona¬ 
re bersaglio ed arciere. 

170-230; 

365-405; 

560-600 

Lettura della tastiera per il movimen¬ 
to dell’arciere. 

535 

Serve a scegliere se porre il bersaglio 
sull’asse delle ordinate o su quello del¬ 
le ascisse. 

820 

DATA per creare l’albero (“a” grafi¬ 
ca). 

825 

DATA per creare la mela (“b” grafi¬ 
ca). 

830-835 

DATA per il personaggio che regge la 
mela (“c” e “d” grafiche). 

840 

DATA per creare la freccia orizzonta¬ 
le (“e” grafica). 

845-850 

DATA per creare l’arciere (“f ’ e “g” 
grafiche). 

855 

DATA per creare la freccia in diago¬ 
nale (“h” grafica). 

960-995 

routine per gli esercizi di calcolo. 


VARIABILI PRINCIPALI 

f Contatore di frecce, 

t Tempo trascorso dalla stampa della freccia 

al suo scoccare. 

x,y Coordinate della freccia, 

tl Punti acquisiti ad ogni bersaglio colpito, 

pt Totalizzatore dei punti di ogni parte del 

gioco. 

p Penalità. 

totale Punteggio dell’intera partita. 



1984 e Bit - 47 

























Figura 1 - Il listato del 
programma ZIP. 



10 . PAPER 7: SORDE 
30 FDP. n=© TO 7; 

"S" + n , a : BEEF . 
30 FOR X =3 TG 12: 

: FPIMT XNK 4; RT X 
3HBP . DI / V : NEXT y : 
35 fOR W=1 TO 36 
4-0 POR n =26 TO m 
50 PRINT RT 10., n; 
DHR$ 14-4 

50 ©SEP »/100,0: 


R 5 : CL5 
READ 5 : POKE 
05, n: NEXT T: 

POR y=© TO w 
,y.:CHR$ 144: 

NEXT x 
57 EP 3 
5TEP -1 
“ 2 IP " ; XNK 4/ 

NEXT n: NEXT 


» 

70 CLS : PRINT TRB 11; "ISTRUII 
INI' 1 ; PRINT : PRINT “Il gioco CC 
esiste nel colpire una me la la 
>ciando delle frecce dopo averi 
i allineate con il bersaglio-" 
75 PRINT "Il gioco e ' diviso i 
ì 3 parti- Ogni volta ti darò' 

3 frecce." 

100 PRINT "Bisogna lanciare in 
fretta; piu ' i l tempo passa meno 
.3 unti si guadagnano." : PRINT 

"Il tasto N sposta la freccia a 
sinistra, il tasto M a destra. 
Il tasto 2 la fa partire.": PRI 
vlT PRINT "Rd ogni bersaglio ma 
nato perdi 5 punti."; PRINT RT 
31,0; "Premi un tasto per incorni?; 
ri are.": PPU5E 0 
103 PAPER 5: POR n =© TO 7: RERD 
b: POKE USR "b"+n,b: BEEP .1,H: 
NEXT n 

105 LET p =0 : LET pt=0: LET tota 
le =0 

106 POR f=l TC 5 
110 LET t*0 

115 CL 5 : GO SUB 300 

120 LET a=INT <1+30*RND): LET y 
-INT (1+30#RND) 

ISO PRINT INK 1;RT l,a;CHR$ 14S 

160 LET t=t+i 

170 PRINT RT 19,y ; " " 

180 Ir INKEY $ = " " ~THEN GO TO 22C 
19© IF INK EY $ = *T> " THEN LET y = u - 
1: IF y=0 THEN LET y=l 
200 Ir INKEY$="»" THEN LET y =y v 
l: IF y =31 THEN LET u=30 
210 Ir INKEY$="Z" THEN GO TO 24 
5 

220 PRINT BRIGHT 1 ; RT 19,vi;"t" 
230 BEEP .03,0: PRINT RT 21,6;t 
r GO TO 160 

240 FOR X =1© TO 1 STEP -1: PRIN 
T RT x , y;"t";RT x+l,y;" " 

250 BEEP .01,36: NEXT x 
260 IF a =y THEN GO SUB 900 
270 IF a < >y THEN GO SUB 910 
283 NEXT f 

285 PRINT RT 4,15;"prima parte" 
GO SUB 920 
290 GO SUB 960 

295 CLS ; PRINT "Eccoti alla se 
ronda parte.","Ora la freccia ha 
movimento orizzontale, in p 

iu' vedi l'ar- edere. Fai attenz 
ione alla mela bersaglio; essa e 
' posta sulla testa di un tuo a 
t»ì co. 5e sbagiiii colpo perdi s 
punti, ma se trafiggi l'amico 
ne perdi 10." 

293 PRINT RT 21,3;"Premi un tas 
to": PRUSE 0 

300 BORDER 4: PRPER 6: CLS 
305 FOR n =0 TO 7: RERD C: POKE 
USR "C"+n,C: BEEP .05,n: NEXT n 
310 FOR n=0 TO 7: RERD d: POKE 
USR "d"+n,d: BEEP .05,n: NEXT n 
315 FOR n =0 TO 7: PERO e: POKE 
USR "e"+n , e . BEEP .05,n: NEXT n 
320 FOR n =0 TO 7: RERD f : POKE 
USR "f"+n,f: BEEP .05,n: NEXT n 
330 FOR n =0 TO 7: RERD g: POKE 
USR "g " 4-n , g : BEEP . 05, n: NEXT n 
335 LET p t =0 : LET p=0 
340 FOR f:si TO 5 
345 LET t =0 
350 CLS : GO SUB 800 
355 LET a =INT (1 + 17#RND) : LET X 
= INT a + 18*RND) 

360 PRINT BRIGHT 1;RT a,l;CHR$ 
145; BRIGHT 0; INK 3; RT a 4-1,1 ; CH 
146; INK 3;RT a+2,l;CHR$ 147 
365 LET t = t +1 

370 PRINT RT x,29;" ";RT x,30;" 

” • p7' x +1 30 * " " 

375 IF INKEY$="" THEN GO TO 395 
360 IF INKEY$ = "n" THEN LET X =X 4 
l: IF X = 19 THEN LET X=18 
385 IF INKEY $ = "m" THEN LET X =X - 
t: IF X =0 THEN LET X =1 

390 IF INKEY $ = "Z" THEN GO TO 41 
3 

395 PRINT RT X,30;CHR$ 149; RT X 

H,3®;CHR$ 150 

400 PRINT BRIGHT 1;RT X,29;CHR$ 


148 

405 BEEP ,03,0: PRINT RT 21,6;i 
GO TO 365 

413 FOR y =23 TO 1 STEP -1: PRIN 
r RT x,y;CHR$ 148;" " 

415 BEEP .01,36: NEXT y 
420 IF a=X THEN GO SUB 900: NEX 
*r f : GO TO 453 

425 IF x=a + l OR X=a+2 THEN GO S 
JB 935: NEXT f: GO TO 450 
430 IF RTTR (x,y>=48 THEN GO SL 
3 910. NEXT f 

450 PRINT RT 4,15;"seconda part 
?": GO SUB 920 
455 GO SUB 960 

470 CLS' : PRINT TRB 5;"Ultima P 
arte del gioco" 

473 PRINT : PRINT : PRINT "Ora 
la freccia scocca in diago- naie 
. colpire il bersaglio e' prò? 

- i e difficile.": PRINT : PRINT ** 
-■'remi un tasto per incominciare- 
47 o PAUSE 0 
500 BORDER 2: CLS 

510 FOR n =0 TO 7: RERD h: POKE 
USR "h"+n,h: BEEP ,05,n: NEXT n 
515 LET Pt=0 LET p =© 

520 FOR f=l TO 5 

525 LET t =0 

530 CLS : GO SUB 800 

535 LET hi-INT (1+2#RND) 

540 JF W = 1 THEN LET 3=1: LET b = 
XNT 11-H2*RND> : GO TO 550 
545 IF ui =2 THEN LET b = l : LET 3 - 
XNT li+12*PND> 

550 PRINT BRIGHT 1 ; RT a,b.;CHR$ 

145; BRIGHT 0; INK 3;RT a+l,b;Cr 
146 ; RT a 4-2 , b; CHR$ 147 
555 • L5T .y,r!3 .LET . .y - XNT (7+23 *F-: 

NDÌ 

560 LET t=t+l 

555 PRINT RT x,y;" "RT x,y+l;" 

• t • )<+l U+l’ " '* 

570 IF INKEY $ = " " THEN GO TO 592 
575 IF INKEY $ = "n" THEN LET y=y - 
i: IF y=B THEN LET y=7 
530 IF INKEY $ = "m " THEN LET w=y + 
X: IF y =30 THEN LET y=29 
535 IF INKEY $ = "z" THEN GO TO 60 
5 


GO SUB 


NEXT n 

IF a=X RND b=y THEN 
NEXT f : GO TO 660 
IF RTTR (X,y)=48 THEN GO SU 


593 PRINT BRIGHT 1;RT X,y;CHR$ 
151; BRIGHT 0;RT x,y+l;CHR$ 149, 
7T x 4 1,y+l;CHR$ 150 
600 BEEP .02,0: PRINT RT 21,6;t 
GO TO 56© 

605 FOR n =1 TO 17 

610 LET X =X —1: LET y=y-1 

512 IF RTTR <X,y)=51 THEN PRINT 

RT x,y;CHR$ 151; RT x+i,y+i;" 

GO SUB 935: NEXT f: GO TO 660 
515 PRINT RT X,y;CHR$ 151;RT X* 

BEEP .01,36 

S2D IF X=1 OR y=l THEN GO TO 63 

ò 

625 
630 
303 : 

635 
3 910 

650 NEXT f 
• 660 PRINT RT 
GO SUB 920 

7 lÌ PRINT : PRINT : PRINT "In q 
fftàta partita hai totalizza—to 
:>UNT I ".totale 

720 priht RT 15,3;"Uuoi giocare 
ancora? (S/N)" 

725 PRUSE 0 

730 Ir INKEY $="S" THEN GO SUB 9 
30 : RUN 
740 STOP 

830 FOR H=0 TO 31: PRINT RT 0,H 
:CHR$ 144;RT 2C,n;CHR$ 144 
SOS BEEP .©1,H: NEXT n 
30© FOR H=1 TO 19: PRINT RT n,0 
;CHR$ 144;RT n,31;CHR$ 144: BEEP 

.01,n; NEXT n 

810 PRINT RT 21,0;"Tempo WP 

analita' Itot. 

S15 RETURN 

32© DRTR 126,235,132,219,173,90 


4,15;"terza parte 


,24,24 


=“25 


DRTR 

DRTR 


0,32,16,3,12,22,30,12 
30,26,30,12,12,30,22,2 


DRTR 

DRTR 

DRTR 


18,30,12,12,12,15,31,0 
0,0,0,32,64,255,64,32 
15,39,39,71,66,191,71, 


C* CSi 

330 

835 
840 
845 
71 

850 DRTR 39,39,3,3,3,15,15,0 
355 DRTR 60,43,40,36,2,1,0,0 
900 BEEP .1,-24: PRINT RT 8,6; 
-LRSH i;"BERSAGLIO COLPITO": LET 
tl=AB3 (S-yJ+INT ( 500/SOR t): L 
£T ptapt+tl 
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Seguito listato ZIP. 

' 905 PRINT RT 21,23; tl 

906 GG TO 945 

210 PRINT RT 6,6; "BER5RGLIO MR-\' 
?RTO " : LET p=p-f5: PRINT RT 21,20 

.• P 

2.15 GG TO 945 

990 PRINT RT 4,4; 'Fine della •*; 
RT ©,4;"Hai totalizzato punti ", 
Pt;RT 9,6;"Le penalità' sono ";p 
995 PRINT RT 13,6; '‘Punteggio fi 
r»2 le "; p t -p 

926 let iotaU=tota U+pt-p 
930 GG TO 945 

235 PRINT RT 8,4; M flhhhh...mi ha 
i trafitto!" 

940 LET psp+10- PRINT RT 21,20; 

P 

945 PRINT RT 13,3;"Premi un tas 
t 0 " 

243 IF INKEY$s"“ THEN GO TO 94S 
950 RETURN 
SS0 CL‘5 

955 PRINT TRS 5,"INTERURLLO SCO 
LRSTICO" 

9^0 FOR d=l TO 5 

S?5 LET a=INT (1+104RND): LET t 
-JNT f1 + 10 *RND> 

960 PRINT : PRINT : PRINT ; "Qui' 

:*( t o fa '* ; a ; " x ** ; b ; •* ? " ; 

283 INPUT "Risultato ";c 
985 IF C=a*b THEN PRINT " =", 

c; ’’ esatto" : NEXT d 
590 IF C < > a * b THEN GO TO 983 
295 PRUSE 1O0: RETURN 
9030 OL5 : PRINT FLASH 1 ; RT 10, \C 
" FERMA IL MASTRO 

II 

?310 PRINT RT 21,0;"Premi un tas 
s .o cer inccwiinciare»": PAUSE 0 

3020 RUN 



Ha superato le definizioni 
di MICRO-MINl-MIDI-DESK TOP 
ecc. ed ha realizzato il: 



LA QUARTA GENERAZIONE 


* CPU 

16 BIT 

* Memoria Ram 

128-896 KB 

* Tastiera 

103 Tasti 

* 

8 Programmabili 

* Video 

80x25 

* 

64x31 

* 

40x25 

* Grafica 

96x160 


786x288 

* Interfacce 

Seriale 

* 

Parallela 

* 

Penna Ottica 

* 

Floppy Disk 

* 

Hard Disk 

* 

Unità nastro 


Processore Aritmetico 
Video Colore 

Possibilità di reti PERSONALIZZATE 


N.B. * = COMPRESO NELLA CONFIGURAZIONE DI BASE 

DISTRIBUTORE ESCLUSIVO PER L'ITALIA 



SISTEMI 

LOGICI 

INTEGRATI br.l 


20052 Monza (MI) - Via E. Borsa, 10 - Tel. 039/840128 

CERCASI CONCESSIONARI ESCLUSIVI 
PER LE PROVINCE LIBERE 
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Poker: giochiamo 
d’azzardo! 


Il gioco del Poker come qualsiasi altro gioco di carte può essere ben simulato 
dal computer. Per mezzo della funzione RND(x) si possono infatti creare le 
condizioni di casualità necessarie sia per la distribuzione delle carte che per 

rimprevedibilità del gioco del computer stesso. 



di E. Morelli 


Q uesto programma di Poker per il VIC 20 fa 
giocare il computer, entro certi limiti, come 
un attento awersario. 

Sono previste, in ordine di valore crescente, le 
seguenti combinazioni: minima,, coppia, doppia 
coppia, tris, scala semplice (al re e all'asso), full, 
colore, poker e scala reale (al re e all'asso). Il 
capitale iniziale per il giocatore e per il computer 
è di un milione mentre la massima puntata singo¬ 
la è di 100.000 L. Viene conteggiata nel piatto 
anche la posta fissa che è di 10.000 L. Le regole 
seguite sono quelle classiche del gioco con due 
puntate e rilanci a oltranza. Il giocatore deve 
quindi solo fare le sue puntate e segnalare le 
carte che vuole cambiare ( premendo il "RETURN" 
ad ogni inserimento). Al resto penserà il computer 
segnalando chi ha vinto e con quale combina¬ 
zione. La partita viene vinta da chi riesce a man¬ 
dare l'avversario al di sotto delle 10.000 L. 

Per far girare questo programma il VIC deve avere 
un'espansione di almeno 16 Kbyte RAM e prima 



Foto 1 - Primo rilancio. 


del caricamento è necessario dare le istruzioni 
POKE 43,0: POKE 44,33: POKE 8447,0 (Return), in¬ 
fatti per la creazione delle figure occorre spostare 
l'indirizzo di inizio del programma per lasciare 
spazio in memoria ai nuovi e ai vecchi caratteri di 
stampa Le carte del mazzo e dei giocatori sono 

b f ri.» ^ ~ ir -mutiti i -miniti 




Foto 4 - Responso 



Foto 2 - Cambio carte. 


Foto 5 - Presentazione totali. 
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memorizzate in variabili con indice (V. linea 40). 
Un'idea chiara della struttura del programma 
può essere data dal diagramma a blocchi in 
figura. 

Come si può vedere esso è composto da un certo 
numero di subroutine per le funzioni che si ripeto¬ 
no più spesso. La valutczione delle carte viene 
eseguita dando a ciascuna combinazione un 
valore che va da 0 per la minima, 10 per la cop¬ 
pia, sino ad 80 per la scala reale. A questo nume¬ 
ro per le combinazioni: coppia, doppia, tris e full 
ne viene aggiunto uno che va da 1 a 6. Questo 
per distinguere combinazioni uguali con carte 
differenti. Per esempio un tris di 9 vale 31 mentre 
uno di RE vale 35. Infatti il tris nell'ordine suddetto 
vale 30 mentre il 9 che è la carta più piccola vale 
1 (il re vale 5). Per la strategia del gioco del 
computer viene usata una scala differente con 
valori tanto più elevati quanto è elevata la com¬ 
binazione che ha il computer stesso. Nella valuta¬ 
zione per il secondo rilancio viene inserito un altro 
numero che tiene conto dello scarto del giocato- 



200 


o 


Valutazione 

carie 


1500 



©i 


Prelievo carte 


10000 



© 


Input rilancio e cambio 
carte giocatore 


20000 



© 


Effetto sonoro 
e visivo 


9000 



© 


Valutazione scarti 
del giocatore 


8000 




o 


Generazione nuovi 
caratteri 


15000 


re (uno scarto di 2 ad esempio indica in genere 
che il giocatore ha un tris). Vi è naturalmente 
anche una routine che decide quando è il caso 
per il computer di provare un bluff. 

Buona fortuna! ■■ 


Figura J - La struttura, 
semplificata, che corri¬ 
sponde al programma per 
giocare a Poker. 
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VARIABILI PRINCIPALI 


C (4,10) 

CI (1,5) 
C2 (1,5) 
A 

B 

TI 

T2 


Contiene le carte pescate (valore 1 ) e VA 

quelle da pescare (valore 0). 

Contiene le carte del giocatore. VV 

Contiene le carte del computer. 

È il seme della carta pescata. VT 

È il valore della carta pescata (dal 9 
all’asso). 

E il totale posseduto dal giocatore. PO 
È il totale posseduto dal computer. 


È il valore numerico assegnato alla 
combinazione del computer. 

È analogo a VA ma ha valori diversi 
e serve per la strategia di gioco. 

È il valore che il computer assegna 
allo scarto del giocatore per la sua 
strategia di gioco. 

È il valore che di volta in volta è 
contenuto nel piatto. 


Figura 2-11 listato BA¬ 
SIC. 



0 REM EMfìNUELE MORELLIPERUGIA GIUGNO 1^83 
10 PRINTT.: 

20 PRINT"N*fc*******:Si POKER ■?*:*******" 

30 PRINT"» :*♦■**" 

31 PRINT"HWDI EMfìNUELE MORELLI ^PERUGIA 1983" 

32 PRINT"*WWSW ATTENDERE PREGO 
35 POKE36S78 ..15- GOSUB15000 

40 DIMOICI,5) DIMC2<1,5> : DIMC3C1,5):DIMV2<6) BIMC(4.6) 

42 SF'i : = " 

43 T1 = 1000000 :T2=1000000 

44 PP$=" 

43 PRINT"HfT3fv'U01 LE ISTRUZIONI ?" 

50 GETfìfIFA$=""THEN50 


55 


I PfìtO " S " THEN100 


60 PRINT" risii* ♦ * * POKER * * ♦ * " 


PRINT"3SMIL CAPITALE INIZIALE E' DI «JN MILIONE." 


65 

70 PRINT"»LE ISTRUZIONI SONO 
75 PRINT"»'VE' = VEDO" : PRINT"»'P$' - PASSO" : FRI NT" H'NA' = NON APRO" 
80 PRINT"M'PR' = PAROLA" PRINT"«'SE' = SERVITO" 

35 PRINT" PUNTATA MAX £. 99000" 

90 PRINT"HWSiPREMI UN TASTO" 

95 SETA*: IFA*=""THEN95 
100 FORI = 1T04:READSS( I ) : NEXT 

110 FAR I = 1T06 : PERDO? CO- NEXT 

111 FAR 1-1706 READF$(I):NEXT 

112 FORI=0108^ READR$<I>:NEXT:F0RI = 1T06 ; READR1$<I)■NEXT: RESTARE 
200 PR I NT " TP0KE36879,221 : P0KE3687A, 15 

210 F'R I NT " 11-r- T - t- T -T 

220 FOR I = i T07 PR I NT " I ! li I W& I I W& I " ' NEXT 

230 PRINT" 1 - L - 

240 PRINT"MKWSB" 


-L 


J '• 


250 PRINT" ,- T -r- r 

260 FORI=1707 : PRINT"i 
270 PRINT" 1 - : -*-<- 


NEXT 


j » 


320 PR I NT " I’' ; 

325 TE=INT<RND(0)*50 >: FARI = 1 TOTE A=RND<0>*NEXT 
338 F0RI=1T05 FORT-1TO300'NEXT 
340 A= I NT '• RND <1)#4+1) : $$=$$( A ) 

345 B= I NT ( RND < 1 ) *6+1 ? : C$=Cf ( E > : F$=FS ( B > 

365 IFC<A,B) = 1THEN1 = 1-1 : GOTO1360 
380 C C A, B ) = 1 : C1 < 8,1 > =A : C 1(1,1 }=B 
1348 IFAOTHENPRI NT " j : GOTO 135A 
1345 PRINT"!"; 

1350 printc$" "cruiirs*" "s$"mir , F$"ìiiir; 

1352 IFA<3THENPRINT ,, .H"; : GOTO 1356 

1353 PRINT"!".; 

1356 PRINTSf" "SfiaiirCf" "Cr'TTTmi"; 

1360 NEXT 

1400 F0RI=1T05 

1410 A=INT <RND <1)*4+1) 

1428 B=INT(RND <1}*6+1) 

1430 IFC<fì,B)=1THENI=I-1 : GOTO1450 
1440 C(A,B)=1 : C2(0, I)=fì:C2(l, I)=B 
1458 NEXT 

1490 GOSUB1500 : T=190■GOSUB9000 ; GOTO2000 
1500 REM VALUTAZIONE 
1510 F0RI=1T05 

1520 V2<C2C1,I)) =V2<02(1,1))+! 
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1530 NEXT 

1546 REM «COLORE-SCALA PERLE 
1550 CI=C2(0, 1) : F0RI=2T05 
1555 IFN0TC2(0,I>=CITHENNC®1 
1560 NEXT: IFNC=0THEN1565 
1562 NC=0-GOTO1635 

1565 IFV2<0)=0ORV2<6)=0THENVfì-80+V2<6)'VV=30O+V2(6):NC=0'RETURN 
1570 VR=60 •• VV* 170 RETURN 
1635 REM «POKER 
1640 Vfì=0 FORI=1T06 

1650 IFV2<I>=4THENVfì=70+I:VVC30+I : 1=6 

1660 NEXT : IFVR>0THENRETURN 

1665 REM «TRIS-FULL-DOPP1A-COPPIfì 

1670 HC=0•FU=0 : TR=0 : FORI=1T06 

16S0 IF V2 <I)=3THENTR-1 : V1 = I 

1690 IFV2( I ) =2THENFIJ= 1 ■ NC-NC+1 •* V3 ( NC ) = I 

1700 NEXT 

1704 IFNC=1THENV2-V3(1) 

1706 I FNC=2THEN v'2=V3 < 2> 

1718 IFTR=lRNIiFIJ=lTHENVfì=50Vv , l :VV=i20+Vl TR=0:NC=0'V1=0 FU=0 RETURN 
1715 IFTR=1THENVA-30+V1•VV-50+V1•TR=0'NC=0■V1=0 : RETURN 

1728 IFFU=1THENVA=NC«18+V2 VV*NC«10+V3(1>/1©+V3<2>•V2-8‘FU=0 NC=8 V3<i)=0'V3(2>= 
0 : RETURN 

1730 REM «SCALA SEMPLICE 

1748 IF (V2( 6 )=1ANDV2( 1 >*0>OR<V2<6>=0ANDV2< 1 )=1.)THENVA=40+V2(6 > W*S0 RETURN 

1908 VR=6 - W= 10 - RETURN 

2000 REM RILANCIO 1 

2003 P0KE36379.221 

2005 PO=0 : X1=9■X2=3 R1=0'R2=0 : R3=0 

2010 TIJ=TU+i ' IFTU>1THENTU=0 

2815 ON •: TU+1 "> GOTO2058,2208 

2050 I FVA< 13RNDPO=0RNDTU=0THENPR I NT$F'$ " ttiJON fìPRQ ■ ' ' V=7 GOTO2900 

2069 I FPO>VV«5000fìND I NT C RNI ( 1 ) «VV > <6THENPRINTSP$«PASSO " : V=5 G0T025C 

9 

2072 I FPO«0AND I NT ( (RND (1 > «VA+VA/2> «2000 > OX1THEN2150 

2075 IFR3=1ANDVA«500O<POTHEN2150 

2076 IFR3=1RNDINT <(RNDC1>«VA+VA/4)*1000)CF0THEN2158 
2880 X2=INT C(RND(1>*VV«2+19> X10 >«19090 

2985 IFX2>100000THENX2*109900 

2999 PRINTSPf"CPP*;■R2=1 :V=10 

2190 R$="" PRINTSPf"5IPFILANC IO R 3"X2" ■£ M" •• FORI = 1TO3000 : NEXT 

2128 PRINTSP*”» " : GOTO2500 

2158 PR I NTSr$ ” 3&/ED0 " FORT=* 1TO1080 ■ NEXT V=8 R2= 1 ' GQTO2500 

2280 PR I NT $P$ " ifISJSWT OCCfi R TE RI LANCI AREM" 

2295 K$="" : GOSUB20000'K*=B$ o *="" 

2210 IFLEFT*(K*, 2>="VE"THEN't- 4 R1 = 1 : OQTO2590 
2215 IFLEFT* (K*•2 >-"PS"THENV»i : GOTO2500 

2225 IFLEFT *(K*, 2 )="NR"THENY-3•GOTO2500 

2226 IFVAL<K*> =0THENV=4 Rl = l GOTO2500 
2230 Xl='v'AL<K*) : Ri=l : V=9 R3=l : GOTO2500 

2500 IF (V>1ANDY<5)0RV>5ANDR1=1RNDR2=1THEHPO=PO+X1+X2■Xl=8 X2=0 Ri=8 R2=0 

2608 PK-PO : ONVGOTO2620 , 2000,2660,3000,2700,2900,2740,3080,2050,2208 

2620 T1=Ti-10600-PO’T2=T2+1OOOO+PO *GOTO4000 

2660 IFCT=1THEN4000 

2665 CT=1 :FORT=1TO2000 : NEXT•GOTO2010 

2700 T1*T1+10000+PO : T2=T2-10000-PG•GOTO4000 

2740 IFCT=1THEN4000 

2745 CT=1'FORT=1TO200O : NEXT■OOTO2016 

2908 FGRI = 1TO2000 : NEXT PRINTSPf" WW" : GOTO2500 

3000 REM CAMBIO CARTE 
3005 P0KE36879.- 219 
3010 PRINTSP$PP«PP« 

3020 CA=INT<VA/10) 

3030 IFCfì>3THENM*="SERVITO"•GOTO3500 
3040 IFINT<RND<1)«16)*0ANDVA>12THENCA*4 BL=1 : GOTO3030 
3050 ONCAGOTO3200,3308,3400 
3108 F0RI»1T05 

3110 IFC2<1,I)«6THENC2<1,1>=6 02<8,1)=C2(0,1) 

3120 NEXT 

3130 FORI=2T05•GOSUB10080■C2 <0,1> =fl : C2(1,1>=E : NEXT 
3140 M$="CAMBIO 4 CARTE" GOTO3500 
3200 CB-VA-10«CA 
3205 F0RI=1T05 



Seguito figura 2. 
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3210 

IFC2a,I)= 

CETHEN0238 

3215 

GOSUE10008 


3228 

C2<0,I>=fì' 

C2(1,I)=B 

3230 

NEXT 


3240 

N$="ORMEI0 

3 CfìRTE"'GOTO3500 

3308 

CB=VR-18*CR 

3385 

IFINTARNEC 

1 ) * 2 > = 0 T H E N3358 

3318 

F0RI=1T06 : 

IFV2<1> = 1THENSI = I : NEXT 

-1 < C - 

JjlJ 

F0RI-1T05 


OOOfi 
o -'C.O 

iFC2'a,:>= 

SITHENGOSUB18800•C2(0,1) = 

•*.' ■_ d 

NEXT 


-i-iori 

•j* ' ■— 1 y 

M$="CfiMEIQ 

UHM CORTO"'GOTO3508 

OO-J0 

F0RI=1T05 


.joj .j 

IFC2C1,I>= 

CETHEN3388 

336u 

GOSUE10888 


3365 

C2<0, D=R 

C2C1,I)=B 


NEXT 


3398 

M$="CAMBIO 

3 CORTE”•GOTO3508 

3400 

CB=Vfì-10#Ci 

R 

3405 

F0RI=1T05 


3418 

:FC2(i, I)si 

3ETHEN3430 


3 415 u OS lj B i 0 0 m 0 


3420 

C203,1 > 

=R C 2 

a,i>=E 






3430 

NEXT 








3448 

M$= :, CRM 

B10 2 

CORTE" 






3508 

:ftu=8t 

HENPR 

INTSP$ M 

^"Mt : COTO3520 




-itr , e- 

i J 

PRINTSF 

.+• i: 

% 

II 






C -Ti 

J j20 

PRINTSP 

*"mm su 

SE» 

33? 

34? 

2J5 


3530 

QS=0' Zi 

— ni* • r« 

■“ i 

r:nt era 

"IMQUfìLI 

CAMBI 

*LL- 

1'LH=4 

■ 00 

: LH=0 









3535 

IFTU*iTHENPR 

intsp»" 

aH"M$:F0F 

?T=1T01 

800‘NEX 

T 

1 


•-.ere-'. 

OJJc. 

IFLEFTf 

•. i-r -i 

-, ~ :i it i~ r, 

> — o L'Ki 

LCFT$(Z$, 

1 _) = n "T 

'HENQS-1 

G0T03620 




yp= 

=VR 

:VR=0 : VZ 

V2< 

:i> 

=0•NEXT' 

C3< 

:0, 

I ) =C2 ( 8 

ve¬ 

=VR 

• * IV — 1 *i * 

: : .‘. — ti il 

II» Il 

lo: 

:■ ' R 

2=VC-R1* 


3568 LZ=LEN(Z$> 

3570 FORICITOLZ 

3530 J=VfìLC MI D$< 2 $ ,1.1 >> 

3590* GOSUB10080 

3608 C1C8,,T> =fì CKl,J> =B 

3618 NEXT 

3628 DOSI.JBS080 

3780 REM VALUTAZIONE COM 2 

3705 FORI = 1TOC :V2<I>=0'NEXT■NC=0■VR=0 


3728 

pvt 

i—1 « : 


3750 Ri$sR$<Rl)+" " 

3760 IFR1=40RR1=60RR1=STHEN3770 
3765 R1*=R1*+RÌ*<R2> 

3770 R3=INT<VE/10)■R4®VD-R3#18 
3738 R2$=R$<R3>+" " 

3790 IFR3=4QRR3=6ORR3=8THEN3320 
3300 R2^=R2$+R1^':R4) 

3810 IFQS=1THENQS=0•00T05888 

3828 pr i nt " mmmmmmjsmr' 

3321 F0RI=1T05 ' FRI NT" «1111 ) 

3822 PR I NT " 1 1 ’ ; 

3825 FORI=1T05 : FORT=1TO50O : NEXT . 

3838 IFC1 < 0.« I >OTHENPRI NT " rS": GOTO3850 
3340 PR1NT"«"; 

3850 S$=SSCC1(0,1)) 

3860 C**C$(C1(1,1)):F*=F*CC1 a,I>> 

3380 printc$" ,! cr:aiirs$" M sr , iiiir , F$ ,, iiiir; 

3382 IFC1 <0/1 )OTHENPR I NT " r*": G0T03S86 
3884 PRINT"r'; 

3886 PRINTSt" "Sr'Hlircr' "Cf " T7TTTW" ; 

3900 NEXT 

GOT05800 

FORT=1TQ2000 NEXT 
4030 PRINT"3SW****##* POKER *******" 

4840 PRINT"MWII0 HO "T2"£" 

4850 PRINT"MWTU Hfìr , Ti"£" 

4052 T=128 : GOSUB9800 




usi pini pini Pini Pini .Trrror; next 


o _■ 
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405* 


'•j 


4676 
4 i 66 
411 y 
4120 
4130 
4506 
4513 

4520 

4530 


5062 

5003 

5305 

5016 

5060 

5662 

5963 

5365 

5370 

5972 

5675 

5976 

•-J W '•* 

5085 

5086 
5039 
5100 


IFOT»1THENCT=0 * TU=TU+1 :IFTU>1THENTU=0 

IFT1<10008THENPRINT”SW51H0 VINTO” : 1=230'GOSUB9103''00104530 

IFT2<10000THENPRINT"3jWaWflI VINTO" :T=169 'OO8UB9109 ■ GOTO4503 

PRI NT i: 3WWWPREM I UN TASTO " ' POKE 133.0 

GETflr IFfì$* n "THEN4110 

FORI = 1T06‘V2<D =0 :NEXT:PO=0 

F0RI=1T04 F0RJ=1T05:C<I,J>=3 NEXT'NEXT'GQTG203 

PRINT ,, «RWaiVUOI RIPROVARE (S/N) ?” 

GETfìJf • IFfl$=” ,! TKEN45i0 
IFA$=”$”THENPRINT”TJ RUM 
P0KE36379•27‘PRIHT'73" : END 
REM RILANCIO 2 
PRINTSP$PP$PP$" 

F*0KE36879,223 
X1=3 : X2=0 : R1=0’R2=3 : R3=0 
OH(TU+1>OOTO5060,5263 

IF P0-P K =0fìNDTU=0ANBINT<RND<1>*Ì3)=3THEN5430 
I FPO-PK=0fìNBTIJ=0fìND I NT < RND C 1 ) *VZ ) <8+VS/£ T HEN5480 
I FBL= 1 OR I NT RND < 1 > * 10 ) =0THENDL=3 ' X2= 100030 ' G0T0539G 
I FPQ>VZ*S090AND I NT < RND < 1 ) *VZ ) <8+VS/2ANDVO2THEN5450 
I FVT>VZRND < PO-F’K ) =3 ANDV02ANDI NT C RND <1> *3 > =3THEN5453 
IFPO~PK=0fìNDINT <(RND(1>*VZ+VZ/2>*2303> CA 1THEN5153 
IFR3=1flNDVZ*5000<(PO-PK>THEN5159 

I FR3= 1 AND I NT < C RND < 1 > *VZ+VZ/2-VS ) *4333 ) < < PO-PK > T.HEN5150 
X2=INT<CRND <1>*VZ+V2/4)/<10-1NTCRND<i)#4 >)> #13333 
IFX2>100039THENX2-133330 
IFX2<10300THENX2=10306 
PRINTSP$” M" PP$; -R2=1• V= 13•NV=1 

Rt="" : PRINTSP*”ILANC10 A T X2” ■£ ■»”: PORI = 1TQ3000•NEX1 


Seguito figura 2. 




Siamo la più importante 
Casa Editrice di libri, 
enciclopedie e riviste di 
Elettronica e di Informatica. 


CERCHIAMO 


TRADUTTORI 


Per seguire il costante 
sviluppo del settore, 
abbiamo bisogno di 
traduttori scientifici 
disposti a un rapporto di 
consulenza e di 
collaborazione. 


REQUISITI NECESSARI: 

• perfetta conoscenza 
dell’inglese tecnico-scientifico 
(segnalare altre lingue 
conosciute e grado) 

• capacità di tradurre in un 
italiano corretto 

• disponibilità personale di un 
Personal Computer 

• esperienza di programmazione 

• residenza, preferibilmente, a 
Milano o nell’hinterland 


GRUPPO 

EDITORIALE 

JACKSON 


SPECIALISTI 

Scrivere a: Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


Specificare: 



linguaggi di programmazione 
conosciuti 
tipo di personal 
posseduto 


esperienze maturate, 

dove, da quanto 

età, titolo di studio, professione 

attuale, disponibilità 


Tutti i candidati verranno sottoposti a un test di selezione preliminare 
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5 i 20 PRI NTSPf " :« " : GOTO5500 

5150 PR I NTSP$ ” «VEDO " • F0RT= 1TO1000 ' NEXT V=8 R2= 1 ' G0TQ5588 

5200 PRINTSP* n ]M4iTOCCfì R TE RILANCIARE*»" 

5205 K$="" : GOSUB20008'Kf*B$'B$="" 

5210 IFLEPT$ C ,2)="VE”?HENV=4 : R1=1 : GOTO5500 
3215 IFLEFT$CK$,2)="PS"THENV=1 GOTO5500 
5220 IFLEFT t(Kt ,2 > = "PR"THENV=2 : 00705590 
5225 IFVRL'• K$) =0THENV=4 • Rl = i GQT05599 
5230 X1=VRL<K$) : R1 = 1 : V=9 R3=1 :GOTO5500 

5400 PRINTSPS" aiPfìROLfì "*V*6 : FORT=1TQ2009*NEXT■PRINTSP*PP*•GOTQ5500 

5450 PRINTSPt" aiPRSSO " : V=5 

5500 IF(V>1fìNBV<5)0RV>5flNBR1 = 1RNBR2=1THENPG=PQ+X1+X2: X1=0 :X2=9 : R1=0 : R2=0 
5509 QNVGGTQ5S20,5640,10,6000,5790,5720,10,6000,5060,5299 
5629 T1=T1-10000—PO'72=T2+10000+PO : GOTO4000 
5640 IFCT=1THENCT=0 GOTO4000 
5645 CT=1 :TU=0'FORT=1TO2000•NEXT:GOTO5010 
5700 T1=T1+10000+PO:T2=T2-10090-PO : GOTO4000 
5720 IFOT=1THENCT=0 : GOTO4000 
5725 CT=1 TU=1 •FORT=1TO2000-NEXT- , GOTO5010 
6090 REM RESPONSO 
6005 P0KE36879,222 

6010 PRINT"SWW"J : F0RI = 1T05 : PRINT" UHI 4111 4111 4111 4111 4111 

rrmr: next 

6020 PRINT"»W"; -FORICIT05 : FORT= 1TO500 : NEXT 
6030 IFC3(0, IX3THENPRINT"T; : GOTO6950 
6040 FRI NT"!".: 

6050 S*=S*<C3<0,I)> 

6070 C*=C*<C3<1,I)>•F#=Ft<C3<1,1)) 

6089 PRINTCt" "Cr^lirS*" "Sf "4HI"Ff "4HI"; 

6082 IFC3 (0,1) <3THENPR I NT " :GOTO6036 

6084 FRINT"*"; 

6036 PRINTSt" "Sf"4M"Cr' 11 Ct 11 TITmi" 

6129 NEXT 

6130 PRINTSP$PP$PP$PP$SPJr"I0 HO "R2*" TU HfìI "RI* 

6148 I FVX=VZTHENPRI NT " ffTTPRRITR ' ” : RE=1 ‘ GOTO7000 

6150 IFVZ<VXTHENPRINT"OTTURI VINTO"•TI=Tl+PO+10000*T2=T2-F0-10069:RE=2 : 00707908 
6160 IFVZ>VXTHENPRINT"477140 VINTO":T1=T1-PO-10000 : T2=T2+PQ+10000 RE=3•GOTO7000 

7000 PR INTSPS " *mm f -1-T-T-1-1 " 

7010 ONRE3OSUB9209,9200,9300 

7830 FRÌHTZPr'WWmm PREMI UN TASTO" 

7040 GETR* IFR$=""THEN7040 
7050 GQTQ4030 

3900 IFQS*1THENVS=12-INT(RNDC1)+4)•VT=VS*4•RETURN 
3018 ONLZGOTO8020,3038,3840,3850 
3620 VS=5 •• VT=42 : RETURN 

8039 VS=3 : VT=52'RETURN 

8040 VS=3•VT=22•RETURN 
3958 VS=i:VT=12-RETURN 

9009 P0KE36876,T■P0KE36379,29•F0RT=17025Q : NEXT P0KE36376,9 :P0KE36379,221 RETURN 
9108 F0RI = 1T05•P0KE36376, T *P0KE36879,213 : FORIT=1TO280‘NEXT P0KE3S876,8•P0KE3687F 
,217 

915G FOR17=1TO290‘NEXT : NEXT■P0KE36S79,221 - RETURN 

9289 FOR I = 1 "02 : P0KE36876,240 • P0KE36879,29 ' FOR 17=1TO200 ' NEXT ■ P0KE368760 : P0KE3637 
9,26 

9229 PORIT=1TO209■NEXT■NEXT:P0KE36379,221•RETURN 

9398 PORI = 1T02 : P0KE36876,150 : P0KE36879,23 : FOR17=170208 : NEXT■PQKE36876,9 : P0KE3687 
9,24 

3320 FORI7=1TO290 : NEXT•NEXT P0KE36379,221 : RETURN 
10009 R= INT < RNIi(1 ) #4+1} 

19010 B=INT<RNB<1>*6+1> 

10029 IFC(R,B)=1THEN18000 
10038 C(fì,B)=l : RETURN 

15000 FORI=9T0175 r P0KE6144+1, PEEK<32763+1):NEXT 

15018 FORI=8T0215•READfì : P0KE7396+I,fì:NEXT 

15920 P0KE36369,206•RETURN 

28000 PRINT !, ?_ IIIEIIII"; 1=0 

20019 GE7R* IFR$=""THEN20919 

20920 IFfì*=CHR*(13)THEN20069 

20930 IFA$=CHR$ (. 20)RNBI>G7HEN1 = 1-1 : PRINT"Il 1IL"; : Bt=LEFT$< BS,I> : GOTO29019 
28840 AS*ASC<A*> - IPHOT(<AS>47+LLANBAS<58-LH)0R<AS>64RNDAS<91))THEN29010 
20945 IFLH=1RNDI>3THEN20010 
20847 IFD4THEN20010 

20050 PRINT"!l"Rf"" ; ‘ 1*1 + 1-B$=B*+fl$ : G0TQ20010 
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20060 PRI NT "lì FORI = 1T0LEN ( Bf )+1 : PRI NT "II" ; ■ NEXT : PRINT" 3"£t” ■"' RETURN 

30000 DFITR27,13,6,3,1,3,7,7,126, i 89,0,255,255,255,248,241,216,176,96,192,128,128 

.i 64.64 

30010 BRTR7,7,7,15,15,31,63,127,227,223,224,224,192,192,129,0.. 64,32,16 , i^S, 96,64, 
192,64 

30020 BRTR254,6,2,12,31,63,127,127,6,32,31,4,252,252,254,255,32,32,192,0,0,0,0,0 
30030 BRTR0,1,3,4,8,9,10,10,254,255,255,15,7,71,55,39,0,0,128,123,192,192,192,15 

30040 DRTR8..8,. 17.. 18.18.19.16,20.135.143,15,15,15,15,7,135,192,192,224,224,224,22 
4,224,224 

30050 BRTR19,16,16,3,7,2,3,6,7,13,17,33,194,7,253,170,224,240,240,248,124,188,1? 
2,96 

30060 DRTR3,3,3,3,1,0,1,3,51,51,255,255,255,255,255,255,48,48,240,240,224,192,15 

38070 IiRTR7,6,6,6,6,7,7,7,0,227,73,8,8,28,0,34,112,176,48,48,48,112,112,112 

T “j T p ■; R Z'Q 1 i l ~l 1 J p •“ “• * *>q •-.ere; oce •“.ere; «•“.-? , _ o r, « ^>r>n 1 QO 1 G'"> IO"’ 1 / ir 

OvC’Jw . ' ni >J.» li. « .* *r .• x w O L .• u,:j .• ,i_ _ • .* j.. i. J J .* ù. Jw* .* 1 te. i .« t* •«.’ .* 4 i7 .* i ùU .• teteL .* 1 «✓'•’ .* 1 ^ 1 «.-te- j ) » 

307 0 

38080 DRTR " # ".. " * ", " * ", " * " 

30005 i'R i R9, B, J,V, K, fì 
30010 BnTR”MS>Mr, 

30015 DRTR"!US-fS IOIII<r'* IURE .T 1 

40020 BfiTfì“5ssj miK iman ii-a" 

40025 DfìTfV'33 _?3BS! I?" 

40030 IiRTR" ?J9SI R «ini 

40066 BRTRflINIMQ, COPRIR,BORRIR, TRIO, OCRLR SEMPLICE 
40070 BPTRFULL,COLORE,POKER,OCRLR PERLE 

48000 brtrb: nove,®: dieci,di jack,pi donne,bi re,di assi 


SIMBOLI GRflFICI 


3 = SHIFT + CLR = CHR*'147) 
3 = CLR = CHR$<19) 


;« = CRSR T = CHR*U7) 


3 = SHIFT + CRSR = CHR$<145) 


Il = CRSR «- = CHR$<29) 


Il = SHIFT + CRSR <- = CHR$U45) 


S = SHIFT + RVS 0N = CHR$(18) 


B = SHIFT + RVS OFF = CHR$<146) 


■ = CTRL + BLK = CHR$ C144 


fi = CTRL + RED = CHR$<28) 


a = CTRL + PUR = CHR$a56) 


li = CTRL + GRU = CHR$<30) 
3 = CTRL + BLU = CHRIC31) 


IH = CTRL + VEL = CHR*(158) 


Seguito figura 2. 


A proposito del Personal 

Data Base 
per Olivetti M20 


Le numerosissime richieste del 
package PDB per M20 ci hanno 
creato qualche piccolo 
problema anche in relazione 
alla scelta di rendere più 
flessibile l'interfaccia utente. 
Preghiamo pertanto tutti coloro 
che ne hanno fatto richiesta di 
pazientare ancora qualche 
tempo. 
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AGE 84: memorizzare 

gli amici 


Sembra quasi che stia dilagando la mania di sviluppare programmi di archiviazione 
dati con il famigerato ZX80/81, forse perchè è una delle sue maggiori lacune o forse 
per farla in barba a Clive che non ha messo le istruzioni per la gestione dei file nel 

suo BASIC. 

Comunque , scherzi a parte , vi propongo un programma che gestisce un micro 
archivio; si tratta di una agenda telefonica completa di indirizzi con 135 nominativi 

memorizzagli. 



a cura della Redazione 


L a ricerca dei record awiene su più chiavi 
quali cognome, nome(oentrambi), indirizzo 
e numero di telefono. 

Dimenticavo, il programma gira su uno ZX80 8 
Kbyte ROM e 16 Kbyte RAM, non è previsto quindi 
l'uso della funzione SLOW. 


Il programma 

Il corpo del programma è costituito da sei sot¬ 
toprogrammi chiamati su opzione dal program¬ 
ma principale. 

A discapito della strutturalità del programma, 
dandogli una sbirciatina, si notano diversi GOTO 
che fanno sembrare lo stesso alquanto "spaghet- 
taro". 

Purtroppo con il BASIC, specie quello Sinclair, non 
si può fare molto di meglio. 

Osservando bene i GOTO, essi servono per se- 
mistrutturare il programma simulando l'istruzione 
ELSE non presente nel BASIC Sinclair, a creare dei 
cicli per l'aggiunta di spazi bianchi ai campi di 
lunghezza inferiore a quella stabilita (SUB di ricer¬ 
ca) e per ottimizzare l'occupazione di memoria 
allacciando più parti di programma. 

Il programma principale inizia con il dimensio¬ 
namento dei sei settori stringa che conterranno i 
campi dei record da memorizzare, segue l'inizia- 
lizzazione della variabile A che conta i record 
presenti in memoria e punta sempre all'ultimo 
record memorizzato. 

Le stringhe L$, D$, 0$, P$ e Q$, sono usate per la 
mascheratura dello schermo durante l'input e 
l'output dei dati. 

La linea 130 contiene i caratteri grafici che servo¬ 
no a disegnare un telefono sullo schermo per la 
presentazione del programma. 

Abbiamo infine la stampa delle opzioni ed il GO- 
SUB Z ★ 1000 che fa accedere alla SUB prescelta. 

Per avere chiaro il funzionamento del program¬ 
ma, occorre studiare prima le due SUB principali 


cioè la SUB di inserimento e la SUB di ricerca. 

La SUB di inserimento inizia con l'incremento uni¬ 
tario della variabile A 

Se essa è superiore a 135 si ha il ritorno al menu 
per delle altre operazioni che non siano di inseri¬ 
mento, altrimenti si prosegue con l'input dei dati. 

La linea 2220 ci domanda se si desidera correg¬ 
gere l'inserimento, se la risposta è "S" si ripete la 
fase di input dati, altrimenti, rispondendo con 
qualsiasi carattere od il solo NEW LINE, si prosegue 
con la linea 2270 che ci chiede invece se si desi¬ 
dera annullare l'inserimento. 

Rispondendo con "N" o con NEW LINE, il nominati¬ 
vo viene memorizzato e si ritorna al menu; rispon¬ 
dendo con "S", (o qualsiasi carattere eccetto la 
“N"), si decremento la variabile A di uno, quindi il 
nominativo appena inserito non è più puntato e 
con un nuovo inserimento ci si scrive sopra. 

La SUB di ricerca è più lunga e più complessa 
delle altre perchè permette di ricercare un record 
con 1 o 2 dei suoi campi, (indicati come opzioni, 
linea 3050). 

Per quanto riguarda la variabile C inizializzata 
nella linea 3Ò00 si vedrà in seguito a cosa serve. 
L'algoritmo di ricerca è quasi identico per tutte le 
opzioni tranne qualche lieve differenza. 

In pratica si esegue una scansione sequenziale 
del vettore contenente il campo scelto (con la 
prima opzione la ricerca è parallela nei campi 
cognome e nome). 

Descriviamo ora come avviene la ricerca con la 
prima opzione: 

il programma ci chiede di inserire il cognome, se 
è più lungo di 15 caratteri non lo accetta e lo 
richiede (linea 3110); la linea 3115 controlla se 
questo è uguale a quindici caratteri, se è affer¬ 
mativo si prosegue con la linea 3130, altrimenti si 
aggiungono tanti spazi bianchi quanto ne servo¬ 
no per arrivare alla lunghezza giusta e così si salta 
alla linea 3130 che con la linea 3135 vuole inserito 
il nome. 

Si esegue lo stesso controllo, se è il caso si ag¬ 
giungono gli spazi bianchi e quando il nome è 
lungo 10 caratteri si inizia la ricerca parallela con 
un ciclo da 1 ad A (ultimo record). 

Se si trova il nominativo, si salta alla linea 3600 
che visualizza sullo schermo l'output del record 
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( inizio ) 


Dimane, vattori 
Iniz. variabili 


L 


Stampa opzioni 
- 

/ INPUT Z J 


Z=1 


Z=2 




si 


si 


( 

SUB Hata J 

fri 

Hata rtbrlca 
praml N/L, M=manu 



L 

INPUT YS J 



K=K + 1 


SUB Hata 


SUB Inaarimanto 


SUB rtcarca 


SUB aalvataggio 


RETURN 


RETURN 


S ‘ 





e 


SUB Inaarimanto 


\ 



atampa campi | 


/ INPUT C$(A) / 

1 -1- 

1 





PRINT CS(A) 

SUB cancatlazlona 



t " 




/ INPUT N$(A) J 




♦ 

SUB azzaramanto 




PRINT NS(A) 


/ INPUT l$<A) / 

t 


PRINT IS(A) 

/ INPUT AS(A) / 

‘-n- ' 

! 


PRINT A$<A) 


/ INPUT TS(A) / 


PRINT T$(A) 


t 


/ INPUT FS<A) J 



Figura 1-1 diagrammi 
di flusso che rappresen¬ 
tano le routine di cui è 
costituito il programma. 


cercato altrimenti, a fine ciclo (dopo NEXT K), si 
salta alla linea 3660 che ci informa dell'inesisten¬ 
za del record in memoria. 

Dato che in una agenda si possono trovare 
delle persone con lo stesso cognome o lo stesso 
nome, la routine di ricerca con le opzioni 2 e 3 è 
leggermente diversa. 

Invece di andare alla visualizzazione record con 
un GOTO, va con un GOSUB (linee 3270 - 3370) 


quindi, dopo aver incrementato la variabile C di 1 
(linea 3630), per indicare l'avvenuto passaggio, si 
ritorna al ciclo (3640 RETURN). 

Se esiste un altro campo identico, si ripete il pas¬ 
saggio. 

Alla fine del ciclo si salta alla linea 3650 che 
controlla il valore di C, se esso è maggiore di 0 
significa che si è fatto almeno un passaggio, 
quindi si ritorna al menu. 
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Seguito figura 1. 




9 

SUB vlauaNzzazIona ^ 


stampa racord 


LI 


/ INPUT Y$ / 






c= 

+ 1 




- 



RETURN 




c 


SUB car.callazlono 


) 


csncallazlons racord 
praml N/L, M manu 




C$(K) - CS(A) 
N$(K) = NS(A) 
IS<K) = l$(A) 
A$(K) = A$(A) 
TS(K) = TS(A) 
FS<K) = FS<A) 


• • tf 
• ••• 


C$(A) = 
N$(A) = 
»(A) = 
AS(A) = **" 
T$(A) = 
FS(A) = 


nominativo cancallalo 


RETURN 



^ SUB rlcafca ^ 


C=0 


rlcarca racord 
praml N/L, M=manu 



stampa massaggio 
par rlcarca 



■ / INPUT B$ j 
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Se il record non è presente, non avviene nessun 
passaggio per la routine di visualizzazione, quindi 
C rimane O e dopo il test della linea 3650 si ha la 
stampa del messaggio: "nominativo non presen¬ 
te in memoria". 

La ricerca con i campi telefono ed indirizzo è la 
stessa della prima opzione, ma avviene separa¬ 
tamente nell'uno o nell'altro vettore. 

La SUB lista esegue un ciclo, (linea 1030), e visua¬ 
lizza, (GOSUB 3600), tutti i record presenti in ordi¬ 
ne di inserimento. 

La SUB di cancellazione ci domanda quale 
nominativo cancellare, dopodiché prosegue (li¬ 
nea 4050) alla SUB di ricerca 1 opzione. 

Se il record è presente si ha la sua visualizzazione 
ed il ritorno alla SUB di cancellazione (previa pres¬ 
sione di N/L), che procede cancellando il record 
mediante la sovrascrittura dell'ultimo record, (li¬ 
nee 4080 - 4130) e la cancellazione dell'ultimo 
record già memorizzato al posto di quello elimi¬ 
nato, (linee 4140 - 4190). 

La variabile K all'uscita del ciclo FOR-NEXT di 
ricerca è uguale ad A+1, quindi se il record non è 
presente, dopo il messaggio ".. bla bla ritor¬ 
nando alla SUB di cancellazione con il test della 
linea 4060, si ha il ritorno al menu. 

La SUB di azzeramento, dopo la risposta afferma¬ 
tiva, esegue un RUN 10 che, come tutti sanno, 
azzera le variabili del programma. 

La SUB di salvataggio esegue da programma il 
SAVE "RUBRICA". 


Nola 

Affinchè il programma giri senza inghippi si de¬ 
ve inizializzare la variabile C. 

Occorre, quindi, solo per la prima volta, inserire 
almeno un nominativo e poi cercarlo; fatto ciò si 
può tranquillamento continuare ad utilizzare il 
programma, registrandolo ogni qual volta si inse¬ 
riscono nuovi nominativi. 


Il listato 

Gli spazi bianchi sono stati rappresentati con il 
simbolo "b", ma ove era necessario evidenziarli, 
(in tal caso bisogna tener conto solo di loro, non 
quelli della macchina da scrivere), altrove sarà il 
vostro buon senso a guidarvi. 

I caratteri in campo inverso sono stati rappresen¬ 
tati chiusi dentro un rettangolino. 

I simboli della linea 130 corrispondono ai seguenti 
caratteri grafici: 

"X" = CHR$ 8; 

= CHR$ 10; 

"★" = CHR$ 151; 

= CHR$ 9. 

Gli accenti e gli apostrofi si realizzano con i carat¬ 
teri grafici 1, 2 o 130. 


L» modifiche 

Il programma si può modificare per contenere 
altro genere di dati, basta cambiare l'intestazio¬ 
ne dei campi e la loro lunghezza (ovviamente in 
relazione alla memoria disponibile). 


La SUB lista si può modificare per ottenere la lista 
dell'agenda con la ZX Printer anziché sullo scher¬ 
mo. 

Chi avesse necessità di più di 135 nominativi può 
togliere alcune linee di programma non indi¬ 
spensabili, semplificare l'output video-grafico, 
accorciare qualche campo per poter aumenta¬ 
re così il numero di record memorizzabili. jfj 


10-120 

REMark 

Dimensionamento vettori stringa e 

130-200 

inizializzazione variabili. 
Presentazione agenda e menu. 

1000-1070 

SUB lista. 

2000-2050 

Inizio SUB inserimento con con- 

2100-2220 

trollo di A, se > 135 RETURN. 
Inserimento dati. 

2220-2310 

Editing inserimento. 

3000-3040 

Inizio SUB ricerca, iniz. di C e menu 

3100-3175 

di ricerca. 

Ricerca l a opzione.^ 

3200-3290 

Ricerca 2 a opzione. 

3300-3390 

Ricerca 3 a opzione. 

Ricerca 4 a opzione. 

Ricerca 5 a opzione. 

3400-3490 

3500-3590 

3600-3640 

Visualizzazione record. 

3650-3700 

Controllo di C, se > 0 RETURN, 

4000-4050 

altrimenti stampa nominativo non 
presente in memoria. 

Inizio SUB cancellazione e salto alla 

4060-4070 

SUB ricerca. 

Se K>A il nominativo non è presen- 

4080-4250 

te, se K=A bisogna cancellare solo 
l’ultimo record. 

Cancellazione record. 

5000-5050 

SUB azzeramento. 

6000-6080 

SUB salvataggio. 



VARIABILI 

C$ (135,15) 

Vettore contenente il campo co- 


gnome. 

N$ (135,10) 

Vettore contenente il campo nome. 

1$ (135,20) 

Vettore contenente il campo indiriz- 


zo. 

A$ (135,5) 

Vettore contenente il campo C.A.P. 

T$ (135,10) 

Vettore contenente il campo città. 

F$ (135,12) 

Vettore contenente il campo telefo- 


no. 

A 

Conta i record memorizzati. 

C 

Conta i passaggi per la routine di 


visualizzazione. 

LS 

Stringa: = “cognome”. 

D$ 

Stringa: = “nome”. 

OS 

Stringa: = “indirizzo”. 

p$ 

Stringa: = “cap bbbbbbb città”. 

OS 

Stringa: = “telefono”. 

K 

Variabili di ciclo. 

Z 

Variabili di input. 

Y$ 

Variabili di input. 

B$ 

Variabili di input. 

E$ 

Variabili di input. 
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Listato 1 - Programma 
di compattazione. 



Cft ( 135,15) 
Ni(135/10) 
1$(135,20) 
R$ (135/5) 
T$(135,10) 
F*(135/12) 
R =0 



RT 13 
T 14-, 

30,4; 

14.0 

150 POKE 154.37/ 
160 CLS 
170 PRINT 



" ; RT 
;RT 5,2, ‘'3 

^ — 


CONCEL 
c,z ZERMEr «T 
r c, -, r, t - 


OR Z <1 THEN GOTO 180 



_r;nT 

3/6;"SCEGLI 7" 

180 INPUT Z 
190 IF Z > 6 
200 CLS 

210 GOSUB Z *1000 
220 GOTO 160 

1000 PRINT RT 4-/7; _ 

ai"; RT 10/4-; "PREMI <N/L > , 

U" 

INPUT Y$ 

IF Y$*"M" THEN RETURN 
FOR K = 1 TO R 
GOSUB 3600 

IF Y$s"M" THEN RETURN 
NEXT K 
RETURN 
LET R =R 4-1 

IF R <135 THEN GOTO 2060 
PRINT RT 5/2;"SPIRCENTE, HE 
PIENR" 


1010 

1020 

1030 

104.0 

1050 

1060 

1070 

2000 

2010 

2020 


i : J 


< N /L > 


< M 


2300 


MORIR 

2030 PRUSE 125 
204.0 POKE 164-37,255 
2050 GOTO 2300 
2060 PRINT RT 4. , 5 ; "! 
ja2SHÌ";RT 10/3; "PREM 
> sMENU" 

2070 INPUT Y$ 

2080 IF Y$="H" THEN GOTO 
2090 CLS 

2100 PRINT RT 2/1;"INSERISCI I D 
RTI COME SEGUE:";RT 6,1;L*;RT 9, 
1;0*; RT 12,1 ; O $ ; RT 1S,1;P*;RT 18 
1/ Q* 

C$VR) 

RT 6,9 ; C $ ( R ) 

N$ (R) 

RT 9,6 ; N $ ( R ) 

1$ (R) 

RT 12/11;1$(R) 

R$ (R) 

RT 15/S;R$(R) 

T$ <R) 

RT 15/18;T$(R) 

F$ (R) 

RT 16 


i JL / UP 
2110 
2120 
2130 
214.0 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 


20, 


n i 18 / 10; F* (R) ; RT 
l;"UUOI CORREGGERE 7 <S/N>" 

2230 INPUT Y* 

IF Y $ < >"S" THEN GOTO 2270 
CLS 

GOTO 2100 

PRINT RT 21/1;"VUOI ANNULLA 
<S/N >" 

INPUT Y* 

IF Y$="N" OR Y$ = " '* THEN 


224.0 
2250 
2260 
2270 
RE 7 
2280 
2290 
URN 

2300 

2310 

3000 

3010 


LET R =R-1 
RETURN 
LET C*0 
PRINT RT 4-/5; 
RT 10,2;"PREMI 


<N/L >/ <H > 



MENU" 

3020 INPUT Y$ 

3030 IF Y$*"M" THEN RETURN 
304.0 CLS 

3050 PRINT RT 4. ,4; "R! 

; RT 7,4.; ", 

" 2 “ 

Hi i RT lì 
15,4;"5 - 
GLI 7" 

3060 INPUT Z 

3070 IF Z<1 OR Z>5 THEN GOTO 306 
0 

3080 CLS 

3090 GOTO Z #100+3000 

3100 PRINT RT 5,2;"INSERISCI IL 

COGNOME" 

3105 INPUT B* 

3110 IF LEN (B*)>15 THEN GOTO 31 
05 

3115 IF LEN (B$) *15 THEN GOTO 31 
30 

3120 LET B$=B$+" " 

3125 GOTO 3115 

3130 PRINT RT 7,2;"INSERISCI IL 
NOME" 

3135 INPUT E % 

314.0 IF LEN (E*) >10 THEN GOTO 31 
35 

314.5 IF LEN (E$) =10 THEN GOTO 31 
60 

3150 LET E %=E $ + " " 

3155 GOTO 314.5 
3160 FOR K =1 TO R 

3165 IF C$(K)*B$ RND N$(K)=E$ TH 
EN GOTO 360© 

3170 NEXT K 
3175 GOTO 3660 

3200 PRINT RT 5,2;"INSERISCI IL 
COGNOME" 

3210 INPUT B $ 

3220 IF LEN (B*)>15 THEN GOTO 32 
10 

3230 IF LEN (B$)=15 THEN GOTO 32 
60 

324.0 LET B$*B$+" " 

3250 GOTO 3230 
3260 FOR K=1 TO R 

3270 IF C$(K)=B$ THEN GOSUB 3600 
3280 NEXT K 
3290 GOTO 3650 

3300 PRINT RT 5/2;"INSERISCI IL 
NOME" 

3310 INPUT B % 

3320 IF LEN (B$) >10 THEN GOTO 33 
10 

3330 IF LEN (B$)=10 THEN GOTO 33 
60 

334.0 LET B$*B$+" " 

3350 GOTO 3330 
3360 FOR K =1 TO R 

3370 IF N$(K)=B$ THEN GOSUB 360® 
3380 NEXT K 
3390 GOTO 3650 

34.00 PRINT RT 5/2; "INSERISCI L "I 
NDIRIZZO" 

34.10 INPUT B% 

34.20 IF LEN (B$) >20 THEN GOTO 34. 
1® 

3430 IF LEN (0$)*20 THEN GOTO 34 
60 

3440 LET B$ =B$ + " " 

3450 GOTO 3430 
3460 FOR K=1 TO R 

3470 IF I$(K)»B* THEN GOTO 3600 
3480 NEXT K 
3490 GOTO 3660 

3500 PRINT RT 5/2;"INSERISCI IL 
NR. DI TELEFONO" 

3510 INPUT B* 

3520 IF LEN (B$)>12 THEN GOTO 35 
10 

3530 IF LEN (B$)=12 THEN GOTO 35 
60 

3540 LET B $ =B $ + " " 

3550 GOTO 3530 
3560 FOR K = 1 TO R 

3570 IF F*(K)=B$ THEN GOTO 3600 
3580 NEXT K 
3590 GOTO 3660 
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3600 CLS 

3610 PRINT RT 4,2;L M ;C$(K);P 
T 6 / 2 ; D $ ; '* " ; N$ (K) ; RT 8,2;0$;" " 

; I $ ( K ) ; RT 10,2;P$,RT 10,6;R$ (K) ; 
RT * 10,19;T$(K) ; RT 12,2;Q$;" ";F$ 

tK);RT 20,1;"PER CONTINURRE PREM 
I <N/L>" 

3620 INPUT Y$ 

3630 LET C=C + 1 
364-0 RETURN 

3650 IF C>0 THEN RETURN 
3660 CLS 

3670 PRINT RT 5,1;"NOMINRTIUO NO 
N PRESENTE";RT 8,1;"IN MEMORIfi" 
3680 PRUSE 125 
3690 POKE 164-37,255 
3700 RETURN 

RT 4- , 2 ;__ 

RT 10,2; "PREMI < N /L. > 


4-000 PRINT 


<M >«MENU" 

4-010 INPUT Y $ 

4.020 IF Y$="M" THEN RETURN 
4.030 CLS 

4-04-0 PRINT RT 3,2,"QURLE NOMINRT 
IUO CRNCELLRRE 7" 

4050 GOSUB 3100 
4060 IF K >R THEN RETURN 
4070 IF K=R THEN GOTO 4140 
4080 LET C$(K)=C$(R) 

4090 LET N$CK) «Ni* (R) 

4100 LET It(K)=I$(R) 

4110 LET flì(K)=fi$(R) 

4120 LET T$(K)=T$<R) 

4130 LET F$(K)=F$(R) 


4140 LET C$ (R) = 
4150 LET N$(R)= 
4160 LET 1$(R)= 
4170 LET R $CR> = 
4180 LET T% (R)= 
4190 LET F$ CR) = 
4200 LET R =R-1 
4210 CLS 
4220 PRINT RT 5 
NCELLRTO" 

4230 PRUSE 125 
4240 POKE 16437 
4250 RETURN 


4;"NOMINRTTUO CP 


255 


<S/N> 


5000 PRINT RT 
E RZZERRRE 7 
5010 INPUT Y$ 

5020 IF Y$ < >"S" 
GOTO 5010 
5030 IF Y*="N" 

5040 CLS 
5050 RUN 10 
6000 PR INT RT 4,3; 

;RT 10,2;* 


5,1; "UUOI UERRMEN- 


RND Y$ < >"N" THEN 
THEN RETURN 


PREMI <N/L> 


<M > sHENU" 

6010 INPUT Y$ 

6020 IF Y$a"M" THEN RETURN 
6030 CLS 

6040 PRINT RT 5,0;"RIRUUOLGI IL 
NRSTRO";RT 8,0;"OUPNDO SEI PRONT 
O PER REGISTRRREPREMI <N/L>" 

6050 INPUT Y $ 

6060 SRUE "RUBRICH" 

6070 CLS 
6080 GOTO 130 


Seguito listato pro¬ 
gramma di compattazio¬ 
ne. 



DflVCO 


Viale Romagna, 58 - 20133 Milano - Tel, 298.644 



DY8050: 


DY80102: 



portatile 200 Vca - 12 Vcc, CPU Z80, 62K utente, 2 floppy 5” da 
400K, monitor 9” fosforo verde incorporato, tastiera con pad 
numerico, uscita per stampante in RS232 L. 4.500.000. 

CPU Z80, 62K utente, contenitore con monitor 12", due floppy da 8" 
doppia testa doppia densità (1,2 Mb), uscita RS232 per stampante, 
tastiera separata L. 6.500.000. 


Su tutti i modelli espansione con disco fisso 
5 Mega terminale grafico, interfacce 
analogiche/digitali sintetizzatore di voce. 


INOLTRE 

la serie espandibile DY80128 in grado 
di supportare 40/80 Mbyte di disco fisso 
e di realizzare reti fino a 16 terminali. 


PROGRAMMI DI: 

• Contabilità 

• Magazzino 

• Alberghi 

• Bar-Ristoranti 

• Comuni 

• Dentisti 

• Assicuratori 

• Az. Agricole 

• Gestione di 
librerie di 
informazioni 


CERCASI AGENTI 
PER ZONE LIBERE 


Sicilia, Calabria: F.L.T. di F. La Torre - Via Umberto 1,154 
98027 Roccalumera (ME) - Tel. 0942/744691 
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SERVIZIO SOFTWARE 



Bit propone ai propri lettori 
i dischi o le cassette 
dei programmi pubblicati. 

I programmi, 

provati e garantiti, 

sono di immediato utilizzo. 



Bit n° 

Programma 

Sistema 

Prezzo 

Codice 

Supporto . 

38 

Gioco della scimmia 
Spaccamattoni 

Vie 20 

15.000 

VI381A 

Cassetta 

38 

Text-Editor 

PET 3032 

20.000 

PE381B 

PE382B 

Cassetta 

Disco 

38 

Planel 

Apple II 

20.000 

AP382C 

Disco 

39 

Rompicapo 
di Rubik 

CBM 4032 
CBM 3032 

15.000 

20.000 

PE391A 

PE392B 

Cassetta 

Disco 

39 

Breakout 

CBM 3032 

20.000 

PE393A 

Cassetta 

40 

Reporter 

Apple II 

20.000 

AP402C 

Disco 

41 

Discover 

Apple II 

20.000 

AP412C 

Disco 

42 

Apple-Chef 

Apple II 

f 

20.000 

AP422C 

Disco 

42 

Prova riflessi 

VIC 20 

15.000 

VI421A 

Cassetta 

[ 45 

Tiny FORTH 

Apple II 

35.000 

AP452A 

Disco 

45 

Alì Babà 

ZX Spectrum 

15.000 

SP451B 

Cassetta 

45 

1X2 

PET 3032 

15.000 

PE451C 

Cassetta 


Per richiedere I programmi in contrassegno, pagando direttamente al postino la cifra indicata, Inviare II seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellinl, 12 - 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su Bit. 



GRUPPO EDITORIALE JACKSON 



cod. ri 11 m 

Cod. I I I I I 11 
Cod. MIMI' 
Cod. I M II 11 


a L. 
a L. 

a L. 
a L. 


Spese postali (contributo fisso) L. 2.000 

TOTALE L. 


Cognome 
Nome ... 
Indirizzo 

CAP. 

Città. 


che pagherò al postino alla consegna del pacco. .• 


Firma 



































